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Preface 



The Best of The Transactor, Volume 1 , is a collection of the 
finer articles published in the first U issues of The Transactor. 
These articles are printed in their entirety and follow the original 
format. The Best of The Transactor was not intended to introduce 
new material, but rather to unite material in co-existence. 

I hope you will find this book a useful teaching tool and an 
interesting reference manual. The Transactor is put together, at 
least in part, with your input and I would like to say a special _ 
"thank you" to all who have contributed. If you have an interesting 
discovery, article or program listing that you would like to share, 
or if there is a subject you would like covered, I would be pleased 
to hear from you. 

I have enjoyed my work with The Transactor over the past year 
and hope, with your continued support, that The Transactor Volume 2 
will be even better. 




Karl J. Hildon, 
Editor. 



BITS AND PIECES 



ARE YOU READY? 

There have been reported mysterious occurences of the out of 
data error when editing and fiddling about in general. 

This is not a bug, but is due to pressing RETURN whilst the 
cursor is over the READY prompt. The machine interprets this 
as READ Y and as there is usually no corresponding datA state- 
ment around we get the error. 

REDO 

It must be remembered that when RETURN is pressed, the machine 
consumes everything on the same line as the cursor, so even if 
you have correct information at the beginning of a given line, 
a single character of an incorrect type far over on the right 
hand side of the screen on the same line is likely to cause 
problems. A rather problematical example of this situation 
occurs if you try and put up a graphic form or set of boxes 
on the screen and then under programme control ask for data . 
with an input statement, e.g. 

NUMBER ? 

When the number is typed and RETURN is pressed, the graphics 
character making up the right-hand side of the box will be 
entered as part of the inputting data. In the case of input 
to a numeric variable, the graphics character is of course 
non-numeric and not allowed and will give the error ? Redo 
from start, so you must always leave such boxes open ended. 
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INVERSE TRIGNOMETRIC FUNCTIONS 



Here are a couple of handy methods of obtaining are sine and arc 
cosine (remember, the result will be in radians) . 
ASNX = ATN (X/SQR(1-Xt2) 
ACSX = ATN (SQR(1-Xt2) /X) 

For those of you who are used to working in degrees, here are some 
handy user defined functions: 
DEFFNS{V) = SINCV/dSO/vr) ) 
DEFFNC(V) = C0S(V/(180/Tf) ) 
DEFFNT(V) = TAN(V/(180/if) ) 

These are three user defined functions which when called with 
arguments and degrees will give the appropriate results. In these 
examples V can be any variable but if all three are defined in 
the same programme, you must use three different dummy variables. 
EXAMPLE: PRINT FNS(30) 

Result of this will be .5. Notice that the argument for FNS , or 
FN anything for that matter, can be elither a variable or numeric 
constant. Also, after a programme containing these definitions 
has been run, these functions may be called using FN in the direct 
mode, that is, from the keyboard directly without being in a 
programme. 
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INTERRUPT STRUCTURE 

Interrupts (including Break or Software Interrupts) are handled 
by software polling. 

When the processor recognizes an interrupt it vectors through 
FFFE, FFFF in ROM to a routine that first inspects the processor 
hardware (IRQ line low) . 

If it was caused by a Break instruction, a Jump Indirect is 
executed through locations 021B, C. If by a hardware interrupt then 
a Jump Indirect is taken through locations 0219, A. 

These locations being in RAM may be user-modified to point to 
extra user code ahead of normal interrupt processing. 

Note, however that the IRQ pointer is used by the cassette 

routines and should be restored to standard values before the cassette 

Save or Load functions are called. 

Various sections of the I/O chips can be set up to cause inter- 
rupts through the IRQ line. 

Example: POKE 59 4 70,2 enables a negative edge on the 
user port CAL line to cause an interrupt. 

However, have your code set up to handle it when it happens! 

Also note that each pass through the regular interrupt code 
increments the time register. 



EDITING 



There is an interesting property of the screen edit routine 
which gives rise to the following effects :- 

If you insert using the INS key, more spaces than you type in 
characters, the DEL key must be pressed twice the number of times 
there are spare spaces. E.g. If you insert six spaces in a 
middle of a line and only type in four new characters, the first 
two presses of the DEL key will produce inverse characters which 
will disappear on the next two presses. Remember, the INS key 
will move all characters including the one under the cursor 
to the right, whilst the DEL key will delete the character on its 
immediate left. 



PET Matrix-Decoded Keyboard 

See 515 & 516 in table below 
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Interesting Locations Accessible from BASIC 



Location (decimal) 



Contents 



225, 224 
226 


Byte address of screen line wiin v^ursoi 
Character position of Cursor (0 to 79) 


515 


IVIatrix-coordinate (row+column) of last key down 
255 if no key down 


516 


1 if shift down, if shift up 


525 
526-534 


No. of characters in Keyboard Buffer 
Keyboard Buffer 


578 to 587 
588 to 597 
598 to 607 

610 


Logical numbers of open files 
Device numbers of open files 
Read/write modes of open files 

How many open files 


512, 513, 514 

518, 517 
59465, 59464 


Clock that increments 60 times a second 
Clock that increments 30 times a second? 
Clock thai decrements every microsecond 


59456 


WAIT 59456,32,32 waits for vertical retrace of display 


64824 


SYS(64824) simulates power-on reset 


59469 


Interrupt Flag Register; e.g., to input user port CA1: 

UPEEK(59469) AND 2: POKE 59469,1: IF 1=0 THEN CAt low 


5941 1 


IEEE PIA B Control, e.g., to run cassette#1 motor N jiffies: 

100 POKE 5941 1,53: T=TI 
200 IF TI-T<N GOTO 200 
300 POKE 59411,61 
ADVICE: Run motor at least 3 jiffies per 191 output chars 
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Hardware available: 



Convenience Living Systems, 648 Sheraton Drive, Sunnyvale, 
OA 94087 EXPANDAPET for 1455 assembled with 16K RAM, sockets 
for 4K EPROM, 2 parallel 1/0 ports with handshake, slots for 5 
option cards, and all cables and brackets. 

Fore though Products, Box 8066, Goburg, OR 97^1- The 
PETSI PET to S-100 interface/motherboard. Sl05 kit or »160 
assembled. Includes 4 slots, dynamic memory controller, and 
sockets for 8K 2716 EPROM. 



The Net Works, 5014 Narragansett #6, San Diego, OA 92107 
has an IEEE to RS-232 board (with dual ports) for S160 assembled 
and tested including on board power supplies. They also announced 
their TNW-488 Low Speed Modem Module to interface IEEE-488 QPEi 
connector version) to the telephone network using the BELL lOJA 
standard. Doug Ggge, one of TNW's proprietors sent preliminary 
announcement specs and some documentation. He also said they had 
a prototype running for some time, and are now producing the 
first units at |225 assembled. 



The 8 bit user port is actuallv part of an MOS Technology MGS 
6522 Versatile interface Adapter (VIA). You can get a copy of 
the VIA data sheet from Commodore Business Machines, 3370 Pharmacy 
Avenue, Agincourt, Ont. (416) 499-4292. Most of the VIA's features 
apparently are used for the PET itself, leaving only an 8 bit 
port and two handshake lines, which are really quite simple to use. 



The new PET user manual briefly describes the 8 bit port 
edge connector, pins A and N are grounded, pin B is CAl, the 
input handshake line, pin M is GB2, the output handshake line, 
and pins C through L are the 8 data lines, with C being the high 
order (leftmost) and L the low order bit. When the PET is turned 
on, the 8 data bits are programmed to act as inputs and CAl is 
programmed to recognize a negative transition (from 1 to O). 

To generate an audio signal from the PET a programmable 
square wave generator is included in the MCS6522 which interfaces 
the PET Parallel User Port. When the tape drive is not in 
operation, the generator can be used to produce one of 51^ 
different frequencies between 243HZ and 125EHZ on CB2 (User Port 
pin M) . The 6522 makes this possible by recirculating shift 
register intended for serial data input and output. With a 
square wave pattern loaded into the shift register and the control 
set for free running output under timer controlled rate, a 
continuous square wave is produced on CB2. 
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The BASIC statements needed to control tlie output are 
as follows: 

POKE 59^67,16 Sets shift register to free running output mode. 

POKE 59^64,0 Sets shift rate. C is an integer of to 255- 

POKE 59^66, D Loads shift register. D should be 15, 51, or 

85 for a square wave output. 

The frequency of the square wave can be determined from 
the following equation: 

FREQUENCY = 500000 HZ Where :D1 = 8 for D= 15 

CC+2nDl) Dl - 4 for D= 51 

Dl = 2 for D= 85 

Reading or writing the shift register must be done last as 
this initiates the shifting operation. The control register at 
59467 must be reloaded with for the tape drive to write correctly. 

Do not connect a speaker or earphones directly to the CB2 
output of the PET. An amplifier is necessary to isolate the 5522 
from inductive loads. 

The TAPE #2 BEAD signal on User Port pin 8 (TAPE #2 READ and 
TAPE WRETE are reversed in the introductory manual) appears to be 
the CBl line from the 6522 and carries the shift clock signal. 
With both CBl and CB2 available, it may be possible to use the 
I/O port expansion scheme described in the MGS6522 Data Sheet. 

PET CODES : 

There are two ways to write to the screen of your PET: 
either POKEing screen memory (32768-53767) or by PRINTing. Besides 
this, there are two ways in which memory is interpreted by the 
character generator: standard mode (location 59468 = binary 
XXXXllOX) or lower case mode (location /XXXXllOX) . Some of this 
confusion may be simplified with a character code chart. In the 
chart the OEF and RVS columns refer to values POKEed in screen 
memory whereas CHE^ refers to the PRINT statement. Thus, either 
POKE 32768, 129 or PRINT CHE3(l8) CHRS(65) will show a reverse A. 

This simple program: 10 INPUT M,N:PRINT M;N, "AA"CHRS(M) 
CHRS(N)"BB" :GOT0 10 allows you to explore the full CHR^ set 
including cursor and reverse. The chart gives GKR$ codes from 
(0-95) and (128-223). The missing values in the chart have the 
equivalents: (96-127) - (32-63), (224-254) = (160-190), aid 255 - 222. 

By referring to an ASCII code chart we see that ASCII 
(0-95) = PET(0-95) but that ASCll(96-127) = PET(l92-223) , ie. 
displaced by 96. 
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The printing mode C-tendard or lowercase) ^^t ^y^.^^ 
POKEing an address. So ^Sr to set the lower 

in the peripheral '=°5*£2l ^Sf^'H^fci^S) §R 11 and reset it to 



Standard Mode: Location 59^68 = XXXXllOX 



OFF RVS CHR$ 



IfT^Vi 64 192 192 
!_©_], 128 64 


jf^^ 65 193 193 
'I^XJj 1 129 65 


IIbJ 


66 1/4 1 74 
2 130 66 
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[, c 


i IT 1 DC "lO^^ 

: 3 131 47 


H 
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68 196 196 
4 132 68 
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69 197 1 97 
5 133 69 


B 
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7n 19fi 19R 

/ VJ I/O 1 7 o 

6 134 70 
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1 <^ 


71 199 199 
' 7 135 71 


IfTil 
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■ 72 200 200 
8 136 72 




^ 73 201 201 
j 9 137 73 


' J 


' 74 202 202 
i 10 138 74 


\^ 


' 75 203 203 
; 11 139 75 


ii L 


1 76 204 204 
j 12 140 76 


[ M , 


: 77 205 205 
13 141 77 


1/, 
■ N 


78 206 206 
14 142 78 



1T1| 79 207 207 
JOJ! 15 143 79 




OFF RVS CHRS 





80 208 208 
16 144 80 


81 209 209 

\[_Q}\ 17 145 81 


lUj 


82 210 210 
18 146 82 


rrti 


83 211 211 
19 147 83 


ITT 

i, T 


1 84 212 212 
; 20 148 84 


' u 


1 85 213 213 
1 21 149 85 


[-^ 

' V 


' 86 214 214 
: 22 150 86 


I'Ql 


87 215 215 
23 151 87 


1 4. 

1, X 


' 88 216 216 
24 152 88 


Tin; 89 217 217 
\ Y I, 25 153 89 


: ♦ 

z 


' 90 218 218 
26 154 90 


. I 


: 91 219 219 
27 155 91 


' Li 

; \ 


1 92 220 220 
; 28 156 92 


] 


93 221 221 
29 157 93 


n 
^ ♦ 


94 222 222 
: 30 158 94 


i' 


" 95 223 223 
.1 31 159 95 



147 
19 



146 
18 



OFF RVS CHR$ 



ra '6 224 160 
l_!!J 32 160 32 


■ L 


97 225 161 
33 161 33 


! a 

I // 
I*- ' 


98 226 162 
34 162 34 


\ a 

: # 


99 227 163 
35 163 35 


{ $ 


100 228 164 
j 36 164 36 


: O 
% 


101 229 165 
37 165 37 


B 

& 


102 230 166 
38 166 38 


1 U 

1 • 


103 231 167 
39 167 39 


\.A... 


1 104 232 168 
j 40 168 40 


!,> 


1 105 233 169 
41 169 41 


r J 
. * 


! 106 234 170 
1 42 170 42 




1 107 235 171 
i 43 171 43 


i ' 

1* — 


' 108 236 172 
' 44 172 44 




! 109 237 173 
45 173 45 


• 


' 110 238 174 
, 46 174 46 


la 

^ • 


! Ill 239 175 
1 47 175 47 




! A 

: ClMSM 


1 145 
17 


CUKUI 


157 
29 



OFF RVS CHRS 



112 240 176 
48 176 48 



113 241 177 
49 177 49 



114 242 178 
50 178 50 



115 243 179 
51 179 51 



116 244 180 
52 180 52 



117 245 181 
53 181 53 



118 246 182 
54 182 54 



119 247 183 
55 183 55 



120 243 184 
56 184 56 



121 249 185 
57 185 57 



122 250 186 
58 186 58 



123 251 187 
59 187 59 



124 252 188 
60 188 60 



125 253 189 
61 189 61 



126 254 190 
62 190 62 



127 255 191 
63 191 63 



INST 
DEL 



148 

20 



(run 

gTOP 



131 
3 



Lower Cose Mode: Location 59468 / XXXXl lOX, Some Except 193 to 218 Prints as Lower Cose o to z Plu s Different Grophics: 



V? 



105 233 169 



122 250 186 



94 222 222 



95 223 223 
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Number to Keyboard Conversion 



0: End of line 89: Y 148: SAVE 

1-31: unused 90: Z 149: VERIFY 

32: space 91: ( 150: DEF 

33: I 92: \ 151: POKE 

34: " 93: ] 152: PRINT* 

35: * 94: t 153: PRINT 

36: $ 95:*- 154: CONT 

37: % 96: space 155: LIST 

38: & 97: ! 156: CLR 

39: ' 98: " 157: CMD 

40: ( 99: ' 158: SYS 

41: ) 100: $ 159: OPEN 

42: * 101: % 160: CLOSE 

43: + 102: & 161: GET 

44: , 103: ' 162: NEW 

45: - 104: ( 163: TAB( 

46: . 105: ) 164: TO 

47: / 106: * 165: FN 

48: 107: + 166: SPC( 

49: 1 108: , 167: THEN 

50: 2 109: - 168: NOT 

51: 3 110: . 169: STEP 

52: 4 111: / 170: + 

53: 5 112: 171: - 

54: 6 113: 1 172: * 

55: 7 114: 2 173: / 

56: 8 115: 3 174: t 

57: 9 116: 4 175: AND 

58: : 117: 5 176: OR 

59: ; 118: 6 177: > 

60: < 119: 7 178: = 

61: = 120: 8 179: < 

62: > 121: 9 180: SGN 

63: ? 122: : 181: INT 

64: @ 123: ; 182: ABS 

65: A 124:< 183: USR 

66: B 125: = 184: FRE 

67: C 126: > 185: POS 

68: D 127: ? 186: SQR 

69: E 128: END 187: RND 

70: F 129: FOR 188: LOG 

71: G 130: NEXT 189: EXP 

72: H 131: DATA 190: COS 

73: I 132: INPUT' 191: SIN 

74: J 133: INPUT 192: TAN 

75: K 134: DIM 193: ATN 

76: L 135: READ 194: PEEK 

77: M 136: LET 195: LEN 

78: N 137: GOTO 196: STR$ 

79: O 138: RUN 197: VAL 

80: P 139: IF 198: ASC 

81: Q 140: RESTORE 199: CHR$ 

82: R 141: GOSUB 200: LEFTS 

83: S 142: RETURN 201: RIGHTS 

84: T 143: REM 202: MID$ 

85- U 144: STOP 203-254: unused 

86: V 145: ON 255: lr 

87: W 146: WAIT 

88: X 147: LOAD 
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USING THE PET COMPUTER 



Note:- Words in a rectangle indicate a key to be pressed on the 

PET keyboard, capitals are individual letters to be typed. 



To enter and run a program 
1. Type NEW then IhETURNI 



2. 



3. 



This will clear out any old programs 

in the useable memory. 
Now type the program letter by letter «n the keyboard, it will 
go into memory and also appear on the screen. At the end of 
each line you must press {RETURN | . 

After you have typed the entire program correctly you are ready 
to run it. Type RUN then press I RETURN | and the program will 
start to operate. 



To correct errors 

1. The flashing cursor tells you where the ne xt lette r will go 
(a) to move the cursor to the right press 
space. 



OR 



once for each 



(b) to move the cursor to the left hold | SHIFT \ down and press 
I GU'^OR once for each space. 

(c) to move the cursor down press 

(d) to move the cursor up hold 



G U^OR 



once for each line. 



SHIFT I down and press 



CufeoR 



once for each line. 
2. To change an instruction or part of one, move the cursor to the 
last correct part of the instruction and then type the correct 
part on top of the incorrect characters, to the end of that line. 
Be sure to put spaces on top of any letters left after the correct- 
ion is made, press 



return! at the end. 



3. To delete characters. 



Move the cursor to^^^iit of last 
character you wish to delete then press jjgj, 



4. 



This removes 



the character it is over and moves everything after it left one 
space . 

To insert characters. Move the cursor until it is 1 oc ate d_ where 
the insertion is needed, then hold I SHIFT | down, press 



INST 
BEL 



followed by the character you wish to insert. You need to hold 



I SHIFT I down and press 5^1^ for each letter you insert 
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To load a program from tape 

1. Place the caaette in the recorder but do not press any buttons 
on the tape recorder. 

2. Type LOU) followed by the name of the program, if no name is typed 
it will load the next program on tape. 

3. When the computer is ready it will aslc you to press the play 
button on the tape recorder. 

4. If the tape loads correctly the computerwill 

then start to run the program. If there is just a ready indication 
you may have to type RUN, If there is an error in loading from 
tape, rewind the tape and start the loading instructions over. 



Information on the screen 

1. You may clear the screen and send the cursor to the upper left 



corner by holding down SHIFT and pressing 



7T3r 

HOME 



2. If you wish to get a listing of the program in memory at any 
time type LIST then | RETURN | . 

3. When the screen is full the first lines get lost at the top and 
new lines continue to be added at the bottom. If this happens 
during the listing of a program and you w ish to exa mine some 
steps before they go off the top pressing 



RIM/STQP will stop the 



listing. Actually pressing [ RIXN/STOP at any time stops the computer 
and if during the operation of your program it will tell you at 
what step you stoped it. 
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TEST FOR A PRIME NUMBiiai (BASIC) 

10 PRINT "TYPE A MOLE NUMBER" 

20 INPUT A 

30 IP A = GO TO 999 

40 IP A = 1 GO TO 200 

50 IP A = 2 GO TU 220 

60 B = 2 

70 G = A/2 

80 D = A/B 

90 E = INT(T)) 

95 P = B*E 

100 IP P = A GO TO 240 

110 IP B > G GO TO 260 

120 B = B 1 

130 GO TO 30 

200 PRINT " 1 IS SPECIAL" 

210 GO TO 10 

220 PRINT " 2 IS A PRIME" 

230 GO TO 10 

240 PRINT A IS NOT A PRIME" 

250 GO TO 10 

260 PRINT A " IS A PRIME" 

270 GO TO 10 

999 ElTD 



TO SORT UP TO 20 NUMBERS INTO ASCENDING ORDER 

10 DIM AC 20) 

20 PRINT "xiOW MAi>fY NUMBERS TO SORT" 

30 INPUT N 

40 IP M = GO TO 230 

50 PRINT " GIVE ME" N " NUMBERS" 

60 FOR K = 1 TO N 

70 INPUT A(K) 

80 NEXT K 

90 J = N - 1 
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TO SORT UP TO 20 NUMBERS INTO ASCENDING ORDER 



100 FOR M = 1 TO J 

110 FOR I = 1 TO J 

120 IF A(I)<A(I+1) GO TO 160 

130 B = A(I+1) 

140 A(I+1) = A(I) 

150 A(I) = B 

160 NEXT I 

170 NEXT M 

180 PRINT "THE NUMBERS IN ASCENDING ORDER 

190 FOR K = 1 TO N 

200 PRINT A(K) 

210 NEXT K 

220 GO TO 20 

230 PRINT "FINIS" 

240 END 



TABLE OF SQUAfiES, CUBES » HDOTS 



10 
20 
30 
40 

50 



PRINT TYPE A STAICTINO NUMBSS" 
INPUT A 

PRINT " TYPE THE El'.DING NUMBER" 
INPUT a 
PRIfPT " 



>HIi?T 



CJLR 
HOI££ 



60 PRINT "N 3QUARE 

70 FOR N. « A TO B 

80 G = Nf2 

90 G = INTCG) 

100 D = iif3 

110 D = INT(T)) 

120 E = 3QRCN) 

130 PRIilT N; 

140 PRIOT TAB(6);G; 

150 PRINT TaB(16);T); 

160 PRINT TAB(26);E 

170 NEXT M 

999 END 



CUBE 



RUOT" 



I DIFFERENCES BETWEEN PET B.\SIC >u.D PORTBAiTI 



In General 

BASIC is an interpreter, 
interpreting and executing 
each statement as it comes 
to it. 

Statements 



All statements must be 
numbered in BASIC as it 
executes them in numerical 
order. 

Constants and Variables 

All constants smd variables 
are real until you use the 
Integer function 
A = INT(B) truncates the 

value of B and puts it 

in A. 

Can get garbage in 9th digit 
Arithmetic 



BASIC uses AI2 for A' 

Decisions 

BASIC IP is a logical if 
e.g. IP A . B 

IP A < B 

IP A > = B etc 



POKDBAN is a compiler and makes 
two compiling passis Bifete it 
attempts to execute. 



Only statements to which you 
transfer may be numbered amd 
must be numbered, numerical 
order means nothing. 



Has both integer and real 
arithmetic and variable names. 
Lluat be csureful of mixed mode. 
Has double precision for extra 
accuracy. 



PORTEAK uses A * 2 for 



POBIHAN is a logical if 
e.g. IP(A-B) 2,3,4 



Looping 

BASIC FOR N= 1 TO 20 

• • • 

fTEXT N 

Input 

IirPUT A,B stops calculating 
and wadts for two numbers to 
be typed on keyboard and 
return button to be pushed 

READ A,B takes information 
from a DATA statement in 
sequence 



POBIEAN DO 10 N= 1, 20 
. • • 

CONTINUE 



READ(8,2)A,B 

2 POHMAI (2P8.2) for card read 

Some versions of FORTRAN have 
simpler unformated reads. 
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Output 

PRINT A,B,G prints values 
at 10,20,30,40 

PHINT AjBjC prints 3 spaces 

apart 

PRINT "HELLO" prints characters 
in quotes 

BASIC also has TA3 and signauLs 
at the end of the statement 
for more detailed spacing 

Subscripts 

Dimension is DIM A(n) 

Can have up to 4 subscripts 

in PET BASIC and 255 limit to 
their size. 



WHITE(3,5)A»B,C 
5 P0B1UI(1X,3P15.2) format is 
more complicated but allows 
for great flexibility 

Some ?ORTEAIS heure an output 
much like BASIC, 



Moat PORTHAFS only allow triple 
subscripts, Dimension statement 
is DIMENSION 



Subroutines 

GOSUB L in BASIC 
I.fuat know tlie statement number 
of the routine, and be sure 
you use the same names of 
variables to communicate with 
a subroutine and subroutine 
may destroy your variables if 
you use the same namev 



CALL NAME(a,b,c.,.) in POBTHAI 
Linkage is through the calling 
sequence and the subroutine is 
compiled at a different time, hence 
the actual variable name is not 
significant. Better for large 
programs. 



Comments 

— REM followed by printing is C. COMMENT followed by printing is 
not executed by the program, not executed by the program, only 
only used to help the reader to give notes to those who read 
and programmer tell what is the program, 

taking plawie in the program 
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1 OPENS .. 4 : CMD5 

2 PRINTCHR*';26) • PR INTCHRf (7) : PR INTCHR* (7) 
18 I)IMA*';75) .B$<75) 

28 F0RI=8T074 

38 READAtU) ,B* ( I) 

48 NEXT ,. 

58 PPINT"LTHIS PROGRAM WILL TEST VOUR KNOWLEDGE OFWORLD CAPITAL CITIES. 

56 PRINT : PR INT PR INT" AFTER EACH STATE (SELECTED AT RANDOM)" 

65 PRINT"PLEA3E TVPE IN THE APPROPRIATE CAPITAL FOLLOWED BV A 'RETURN'." 

86 PRINT: PR INT 

90 N=8 ; C=8 ; W=8 

188 N=N+1 . IFN>18THEN408 

185 I=74*RND( b) 

106 I=INT(I) 

188 0=8 ^ * , ^ . 

lie PRINT PRINT •.PRINT"WHAT IS THE CAPITAL OF " ;A*a), 

115 PRINT INPUTZ* 

120 IFZ I=BI U) THEN208 

136 PR I NT "NOT CORRECT ! . . .TRV AGAIN" ■.W=W + 1 
149 0=0 + 1; IF0>=2THEN888 
158 GO TO 110 

208 R=4*RND( 1) ■.C=C + 1 

261 R=INT(R) 

210 IFR=lTHEN36e 

228 IFR=2THEN381 

236 IFR=3THEN362 

240 IFR=4THEN383 

250 PR I N T " CORREC T . . VOU ■- RE A GEN I US ! " •• GO TO 188 

300 PR I N T " R I GH T ON .. BABY! " •• GOTO 108 

30 1 PR I N T " ALL R I GH T i ! " ; GO TO 168 

302 PR I N T " VES SIR!!": GO TO 180 

303 PR I N T " VOU ■ RE TOO MUCH ! " ■• GOTO 166 

400 PR I N T "LVt'OUR SCORE I S " . C ; " CORREC T .. " ; W ; "WRONG " 

401 PRINT :PRINT"RATING" ;C/(C+W)*100.;"%" ^ 

402 PRINT :PRINT :PR1NT"D0 VOU WISH TO CONTINUE THE LESSON <TVPE VES OR No,)- 

403 INPUTCI 

404 IFC-|="VES"THEN98 

405 IFCI="NO" THEN338 
405 GOT 0402 

608 DATAAFGHAN ISTAN , KABUL , ANGOLA ,. LUANDA .. ALGER lA , ALG lERS , ARGENT I NA , BUENOb A IRES 

618 DATAAUSTRAL lA .. CANBERRA . AUSTR lA , V lENNA . BELG lUM ; BRUSSELS . BOL IV IH .. bUCRE 

620 DATABRAZ IL - ERAS IL I A .. BULGAR lA , SOF I A , BURMA , RANGOON .. CAMBOD I A . PHNOM PENH 

638 DATACANADA , OTTAWA , CH ILE .. 3ANT I AGO . COLUMB lA . BOGOTA , COSTA R ICA , SAN JObE 

648 DATACUBA .. HAVANA .. CVPRUS N ICOS lA . CZECHOSLOVAK I A .. PRAGUE . DENMARK ,. COPENHAGEN 

650 DATADOMINICAN REPUBL IC .. SANTO DOM INGO .. ECUADOR . QU I TO , EG VP T .. CA IRO 

560 DATAEL SALVADOR .. SAN SALVADOR . ETH lOP IH , HDD IS ABABA . F INLAND , HELb INK I 

670 DATAFRANCE . PAR IS , W . GERMAN V , BONN , E . GERMAN V ,. BERL IN > GREECE . ATHENb 

680 DATAGUATEMALA , GUATEMALA C I TV , GUVANA , GEORGEROWN , HA I T I .. PORT-hU-PR INcE 

698 DATAHONDURAS , TEGUC IGALPA .. HUNGARV .. BUDAPEST . ICELAND . REVKJAV IK 

708 DATAINDIA .NEW DELHI .. IRAN, TEHRAN. I RAO , BAGHDAD , IRELAND .. DUBL IN 

710 DATA ISRAEL ■ JERUSALEM , I TALV , ROME , JAMA ICA , K INGSTON . JAPAN , TOK VO , JORDAN , AMMAN 

720 DATAKENVA . NA IROB I , LEBANON .. BE I RUT , L lECHTENSTE IN , VADUZ . LUXEMBOURG .. LUXEMBOURG 

738 DATAMALTA ■ VALLETTA , MEX ICO .. MEX ICO C I TV MOROCCO , RABAT , NETHERLhND .. AMbTERDHM 

748 DA T ANEW ZEALAND • WELL I NG TON , N I CARAGUA , MANAGUA , N I GER I H , LAGOS , NORWA V , OSLO 

750 DATAPARAGUAV . ASUNC ION , PERU .. L IMA , POLAND .. WARSAW . FOR TUGAL > L ISBoN , bPH IN , MhDR ID 

760 DATASUDAN . KHARTOUM , SWEDEN ..STOCKHOLM , SW I TZERLAND . BERN , SVR IH . DHMHbCUb 

778 DATATHA ILAND , BANGKOK > TURKE V , ANKARA > UGANDA , KAMPALA , USSR , MObCOW , UbH , WHbH IN'j i • 

^^738 DA TAU . K . ■ LONDON > URUGUAY , MONTEV IDEO , VENEZUELA , CARACAS , YUGOSLAV I A , bLL'c.KHDt 

398 PRINT"LWELL, I GUESS YOU REALLY DON'T KNOW IT!! '-SHAME)" 

318 PRINT : PR INT : PR INT" THE CORRECT ANSWER IS ";B$(I)." 

815 PRINT :PRINT"NOW I WILL ASK YOU AGAIN!" 

328 GO TO 188 

338 END 

READY. 19 



1 ) 


R0M112.MIC»1 








?9v 


C5e9 


BDFnOl 


M=A 


STA 


OlFD 


800 


C58C 


68 


( 


PLA 




601 


C58D 


8DFE01 


t1>A 


STA 


OlFE 




C590 


A2FC 


• < 


LDX 


*FC 


803 


C592 


9A 


Z 


TXS 




604 


C593 


A900 


)(? 


LDA 


♦ 00 


805 


C595 


8580 


EM 


STA 


8D 


6 6 


C597 


8561 


E! 


STA 


61 


8 7 


C599 


60 




RTS 




8 'f 


C59A 


18 


X 


CLC 





%%%%%%%%%%%%%%% 
2) R0M192.MICfl 



79^ 


0509 


A8 


( 


TAY 




eoo 


C56A 


68 


( 


PLA 




SOI 


cset 


A2FE 




LDX 


*FE 


802 


C58D 


9A 


Z 


TXS 




803 


CSSE 


48 


h 


PHA 






C58F 


98 


X 


TYA 




805 


C590 


46 


h 


PHA 




806 


C591 


A900 


)«? 


LDA 


♦ 00 


80 7 


C593 


8580 


EM 


STA 


80 


809 


C595 


8561 


E! 


STA 


61 


eo9 


C597 


60 




RTS 




810 


C59S 


5160 


Q 


EDR 


(60) 


811 


C59A 


18 


X 


CLC 





DIPEEEEITCES FOOTD BETWEEN ROM Oil AND ROM 019 
TO CORRECT LOSS OE CURSOR. 
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1 RtM«****3QUI'3'3LE VERSION 2. 
d REM IDEA BV PAUL HITTLE 

3 REM PROGRAMMING BV B.SEILER.. G . VOB 

4 REM CLEAR SCREEN TO START 

5 PRINT"L" ; 

'^ REM S'ciUlGGLE GRAPHICS CHARACTERS 
It) DATA" I " , "-" .. "-^ " - " .• " r" , "n " 

18 REM CHARACTERS FOR EACH DIRECTION 

19 REM 20-UP .30-DOWN,48-RIGHT,5e-LEFT 
28 DA T A 1.0 . 5. .b 

36 DATA8.. 1,4.3 
40 DAT A3. 6, 2.0 
50 DATA4.5,e,2 

55 REM A$ HOLDS CHARS, B HOLDS PTRS 

56 REM FOR EACH DIRECTION 
60 D1MA$(5 ) ,B<5 ,5) 

65 REM SET UP A$ AND BO 

70 FOR1=0TO5 

80 READAK I > 

90 NEXT I 

10fel F0R1=1T04 

lie F0RJ=iT04 

120 READS'; J , I > 

130 NEXT J 

140 NEXT 1 

150 REM INITIAL VALUES 

160 REM T1,T2 = DIRECTION OF TRAVEL 

161 REM Tl IS CURRENT DIRECTION 

162 REM T2 IS PREVIOUS DIRECTION 

163 REM 1=UP, 2=D0WN. 3=RIGHT, 4=LEFT 
170 REM 

180 REM X,V ARE POSITION OF WRIGGLER 

181 REM ON SCREEN. 6,0 IS UPPER LEFT 

182 REM CORNER (CURSOR HOME) 

183 REM 20,12 IS CENTER OF SCREEN 
190 Tl=l 

200 T2=l 
210 X=20 
220 V=12 
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^t:>ti KLM c-iL I RHNDOM FHC IOR 

iibW Pk 1 N I " W 1 G'SLE F HC 1 OR w- w ) " ; 

2bt PR 1 N T "ill" .; ; FOR .1= 1 1 0138 ■ NEX T J 

2bb PRINT" H".;;FOR J=lTO10ti . NEKIJ 

L^Vti GE I Wl . 1FWI=" " THEN2bt> 

iV t> IF Wl<"0" OR Wl >"•:*" I HEN ^by 

^^Sti W=VfiL(Wt)/ly+. 1 

iiSti PR INT "L"; 

3titi REM** ♦MAIN LOOP*** 

361 REM #* TURN OR NO | :-■ 

3tit> 1^ RND(l;'>W*W "iHEN 3c:t; 

dtJb REM VES.. DO TURN 

31W 1 1=4*RND'; 1) +1 

32& 1 1- h < T 1 , T 2 ) =0 ( HEN3 lti 

324 REM DRhW MOVE ON SCRlEN 

32j' (.•iO'3UB2&8t.i 

J3& T2=Ti 

33W REM UPDATE POSHiON 

J 4 y N T 1 '3 T 4 8 U .. 4 1 Q 4 2 8 .. 4 3 8 

488 'T = V-l:'30T05-8e 

4 1 W V = V + 1 ; G T b 8 8 

428 X=X + 1 : '30 T 0t>t>8 

438 X=K-1 ; GO T0t:S8 

438 REM ADJUST FOR WRhP-HRoUND 

588 IF V<lTHENV=i:3 ; G0T0388 

518 IF V>23 THEN T=l GOT 0388 

558 IFX<1THENX = 33 : GO 10388 

5b8 IF K>39THENX=1 GO TO 388 

5V8 GOT 0388 

ly'38 REM ***DPHWING SUBROUTINE*** 

lyyi REM POSi iiON '..URSOk H i X .. V 

20ti8 PR INT "H" : 

2810 FORl = nOV 

2028 PR 1NT"0«" ; 

2838 NEXT I 

2848 rOkl=lT0K 

2858 PR 1NT"W" ; 

2855 NhXl I 

28b0 REM PRINT THE GHHRHlTLR 
208m PK 1 N f H f ti i T 1 .. 1 2 .:• - 1) ■ 
20 Pt iU^'N 
PEHDV . 
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ATTACHING A VIDEO MONITOR TO PET 




1 This I.e. requires +5V on pin 14. Pin 7 is 

GPND. ground ( ) connect a 1 uF TANT. capacitor 
~ between pins 14 and 7. observing polarity 



Above is a simple circuit which takes the horizontal drive, 
vertical drive and video waveforms from the PET User Port and 
converts them to composite video suitable for driving an RF 
modulator or a straightforward monitor. The circuit requires 
a 5 volt power supply and this may be obtained from a 2nd 
cassette socket which has a few milliamps available at 5 volts. 
There are no particular points to watch out for when constructing 
this circuit. Lay-out is not critical. In the unlikely event of 
the horizontal hold of your display device misbehaving, adjust 
the value of the 1.5K resistor. This will alter the horizontal 
sync, pulse width. 
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6302 ASSEMBLER FOR PET 2001 



The 6502 Assembler in BASIC is designed to run on an 8K 
Commodore PET. It accepts all standard 6502 instruction mnemonics, 
pseudoops and addressing modes, and evaluates binary, octal, hex, 
decimal, and character constants, symbols and expressions. Source 
statements can be read from cassette or from DATA lists and machine 
code can be assembled anywhere in memory or directed to an external 
device through a user-supplied subroutine. 

The package includes a text editor in BASIC, and an execution 
monitor with a disassembler. Price with documentation is S24.95 
by cheque or Visa/MC from Personal Software, P.O. Box 136-17, 
Cambridge, MA 02138, (617)783-0694. 



50 CLR ;PRINT"L-' .; :FOKE 245.6:PRINT 

180 PR INT" THIS PROGRAM TESTS VOUR REFLEXES BV" 
200 PR INT "MEASURING VOUR REACTION TIME. WHENEVER" 
300 PR INT" THE SCREEN IS CLEARED HIT ANV CHARACTER-" 
400 PR INT" VOUR REACTION TIME IN SECONDS WILL BE" 
500 PRINT"DISPLAVED— WHEN THIS DIS3APPEARS HIT" 
600 PRINT"ANOTHER KEY (ANV KEY WILL DO) AND SO ON-" 
650 FOR 1 = 1 TO 7500 : NEXT ; PR INT TAB < 15) "IflGET READV" 
700 FOR 1=1 TO 2500 :NEKT ;PRINT"L" :POKE 245,11 

800 PRINT; PR INT TAB (1 1) " (ISH I T ANV KEV NOWB) " : GETA$ . A$ .. A* , A* , A$ , Af , A$ ; GOTO 1100 
1000 FOR 1=1 TO RND(l) *2000+750 :GET C* : NEXT : PR INT"L" ; 
1100 T=TI:FOR 1=1 TO 500:GET C$ ; IF C*<>"" THEN 1580 
1200 NEXT :PRINT"L" :POKE 245,10;PRINT 

1300 PRINT"ia VOU SHOULD HAVE TVPED A CHARECTER WHEN ", 

1350 PRINT"ia "; 

1400 PRINT"ISi THE SCREEN WAS CLEARED " ; 

1420 FOR 1=1 TO 1000; NEXT 

1425 FOR 1 = 1 TO 40;PRINT"ia ";:NEXT 

1430 PRINT"ia (STAND BV FOR MORE INSTRUCTIONS) 

1448 FOR 1 = 1 TO 1000 ; GETC$ ; IF CIO"" THEN 1500 

1470 NEXT; GO TO 50 

1475 -SOTO 50 

1508 T1=TI-T ;PRINT"L" , ;POKE 245.11 

1530 FOR 1 = 1 TO .2500 ;GETC$ ; IF CIO"" THEN 1580 

1550 PRINT; POKE 226,17 

1600 PRINT INT((T1/60*1890) +.5)/1000;GOTO1000 
READV. 
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DELAYS 



Quite a few people have asked how to put delays into 
programs. Here are two conanon methods: 

10 FOR A = 1 to 1000 : NEXT this will cause a delay 
of approximately 1 second 

10 FOR A = 1 to 2000 : NEXT this will cause a delay 
of approximately 2 seconds etc. 

10 TsTI 

20 IF TI - T < 60 THEN 20 
Lines 10 and 20 cause a delay of approximately one second 
and work as follows: 

Line 10 sets the variable T equal to the real time jiffy 
clock TI (a jiffy is 1/60 of a second) 

Line 20 tests to see whether 60/60 of a second have elapsed, 
if not the program returns to the beginning of line 20 and 
checks again. 

Here is a small program you might like to try which uses 
delays involving the real time clock in an interesting manner. 

READY. 

5 PRINT"KEt IN A HUMBER>"; 

tf T=#:Ai="" 

2» 6ETK«:IFK»=""tHEN2l 

3f T=TI:60T06I 

4« GETKi 

5i IFTI-T>6«7HEN7« 

it IFK$<>""THENPRINTK$;!AI=A*+K*:T=7I:60T04# 
45 G0T04# 

79 IFA=fTHEMPRINT"*";:A=VAL(A$):G0T01# 
81 PRIIIT"»"A+VAL(AI) 
READY. 
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PLOTTING 



It is possible, with very little effort, to address locations 
on the screen using simple XY co-ordinates. Below we have 
a prograjT. that uses a simple formula that enables one to do 
this . 



READY. 

5 riATA12, 15,22,5,12,25,33 

10 PRINT"" 

20 PI=3. 14159265 

30 FORA = 0TO4*PI STEP ( 4*P I ) /3<? 

40 T=INT(SIN(A)+12+12) :X=X+1 

50 GOSUB80 

60 NEXT 

70 F0RA=33568T033574:READZ:P0KEA,Z:HEXT 
75 G0T075 

80 POKE( ( 24- Y)M0 + 32766 )+X, 46: RETURN 
READY. 



The line that does the actual XY co-ordinate conversion is 
line 80. For the sake of clarity line 80 has been made a sub- 
routine but the formula is so compact that in some cases, 
including this one, it is not necessary. Line 5 and 70 should 
be included when you test this program out but may be omitted 
subsequently. X has a range of 0-39 and Y has a range of 
0-2 4. 
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DATA FILE ERRORS 



A problem with opening files to write on either built-in cassette #1, or 
external cassette #2, has been discovered. When a file is opened, garbage 
will be written out instead of a proper data tape file header. Without this 
header, it is impossible to open the tape file for reading. 

You may not have encountered this problem previously, because it is 
disguised by having loaded a program on the cassette prior to writing a data 
In this mode, the start address of the buffer with the header information is 
initialized properly but cassette data file operation still could be random. 

Fortunately, there is a software patch you can implement in your BASIC 
program to force the open for write on tape to work every time. 

Before opening to write on #1 cassette: 

POKE 243,122 
POKE 244,2 



and on #2 cassette: 

POKE 243,58 
POKE 244,3 

Locations 243 and 244 contain the lo and hi order bytes respectively of 
the address of the currently active cassette buffer. The start address of buffer 
#2 is $33A which is 3,58 ($3=3, $3A=58) in double byte decimal. Similarly 
cassette #1 is $2 7A ($2-2 , $7A=I22). 
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More User Port Info 



t >l 4 



DATA REGISTER ADDRESS 
59471 











1 




1 


1 



DATA DIRECTION REGISTER 
59459 



tsss 



SS3 



1=0UT 0=IN 



The major portion of the user port consists of 8 connections 
at the rear of the PET. Whether these connections are used 
for INPUT or OUTPUT is up to the programmer. These 8 wires 
may be used as either input or output. Before using this 
8 J.:; it port you must first configure these wires as inptits or 
oucputs. This is done by writing a byte to the data direction 
register at address 59 459. In the example above bits 0, 1, 
3 and 7 are configured as outputs. Bits 2,4,5 and 6 are 
configured as inputs. The bit that you see in the data direction 
register is generated by poke 59459, 139. In order to test a 
particular bit being used as an input in the data register 
(59471) one must peek 59471 and apply a "mask" in order to 
mask out unwanted bits. For instance to examine bit 2 we 
would use the expression PRINT PEEK (59471) AND 4. If the 
result of this expression is then bit 2 of the data 
register (59471) has been held at volts by the outside world. 
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MACHINE CODE ENVIRONMENT 

If you wish to write machine code programs in your PET and 
do not wish to have BASIC trampling all over them here is 
a suggestion: 

When the PET is first powered up a test pattern is written 
into and read back from the PAM in ascending address order. 
When this routine discovers a location which does not read 
back properly it presumes that it has run out of RAM and 
displays XXXX bytes free. At this point it makes a note of 
where it thinks the 'top of memory' is.. A quick glance at 
the memory map will show that BASIC program text is stored 
from location 102 5 upwards and strings are stored from the 
top of the memory downwards which means that in any normal 
circumstances there is nowhere in the PET main memory where 
you can hide your machine code routines. 

If however, the first thing you do after powering up the PET 
is to alter the top of memory pointer to say 605?^ everything 
from 6^^1 upwards, as far as PET is concerned, does not exist, 
e.g. strings will be stored from 6^^^ downwards etc. and mach- 
ine code programs can be safely put in location 60jZll upwards. 
This pointer is held in locations 134 and 135 constituting a 
16 bit pointer with 134 being its lower 8 bits. This is a 
binary pointer which means that we must convert your 
or whatever to binary before POKING locations 134 and 135 with 
the information. In the standard 8K PET 134 will be and 135 
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MACHINE CODE ENVIRONMENT (cont.) 



will be 32 (32 x 256 = 8192) Remember that 1025 bytes are 
used for house keeping by the PET (8192 - 1025 = 7167) 
However to give the PET a ceiling of 6000 we convert 6000 
into binary which gives us POKE 134, 112 and POKE 135, 23. 



LIFE FOR YOUR PET 

Here is a good example of what can be done in machine code 
in the PET. It is the game of "LIFE" by John H. Conway of 
Cambridge. If one attempts to write a Commodore PET screen 
size (1CJ00 cell) version of LIFE in BASIC it can take up 
to two or three minutes per generation. This program performs 
two generations per second. In order to use it type in a 
listing in the form of data statements and load in the machine 
code with a small BASIC routine being careful to fill in 
the gaps between 1928 (HEX) and 1930 and also 1954 and 1970 
with no-ops. Below is a listing of the documentation provi- 
ded by the author. 
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LIFE FOR YOUR PET 



Since this is the first time 1 have 
attempted to set down a machine lang- 
uage program for the public eye, I will 
attempt to be as complete as practical 
without overdoing it. 

The programs I will document here are 
concerned with the game of "LIFE", and 
are written in 6502 machine language 
specifically for the PET 2001 (8K ver- 
sion). The principles apply to any 
6502 system with graphic display capa- 
bility, and can be debugged (as I did) 
on non-graphic systems such as the 
KIM-1 . 

The first I heard of LIFE was in Martin 
Gardner's "Recreational Mathematics" 
section in Scientific American, Oct-Nov 
1970; Feb. 1971. As 1 understand it, 
the game was invented by John H. Con- 
way, an English mathematician. In 
brief, LIFE is a "cellular automation" 
scheme, where the arena is a rectang- 
ular grid (ideally of infinite size). 
Each square in the grid is either occu- 
pied or unoccupied with "seeds", the 
fate of which are governed by relative- 
ly simple rules, i.e. the "facts of 
LIFE". The rules are: 1. A seed sur- 
vives to the next generation if and on- 
ly if it has two or three neighbors 
(right, left, up, down, and the four 
diagonally adjacent cells) otherwise it 
dies of loneliness or overcrowding, 
as the case may be. 2. A seed is born 
in a vacant cell on the next genera- 
tion if it has exactly 3 neighbors. 

With these simple rules, a surprisingly 
rich game results. The original Scien- 
tific American article, and several 
subsequent articles reveal many curious 
and surprising initial patterns and 
results. 1 understand that there even 
has been formed a LIFE group, complete 
with newsletter, although I have not 
personally seen it. 



The game can of course be played man- 
ually on a piece of graph paper, tut it 
is slow and prone to mistakes, which 
have usually disasterous effects on the 
final results. It would seem to be the 
ideal thing to put to a microprocessor 
with bare-bones graphics, since the 
rules are so simple and there are es- 



sentially no arithmetic operations in- 
volved, except for keeping track of ad- 
dresses and locating neighbors. 

As you know, the PET-2001 has an excel- 
lent BASIC interpreter, but as yet very 
little documentation on machine lang- 
uage operation. My first stab was to 
write a BASIC program, using the entire 
PET display as the arena (more ibout 
boundaries later), and the filled 
circle graphic display character as the 
seed. This worked just fine, except 
for one thing - it took about 2-1/2 
minutes for the interpreter to go 
through one generation! I suppose I 
shouldn't have been surprised since the 
program has to check eight neighboring 
cells to determine the fate of a par- 
ticular cell, and do this 1000 times to 
complete the entire generation ('40x25 
characters for the PET display) . 

The program following is a 6502 version 
of LIFE written for the PET. It needs 
to be POKE'd into the PET memory, 
since I have yet to see or discover a 
machine language monitor for the PET. 
I did it with a simple BASIC program 
and many DATA statements (taking up 
much more of the program memory space 
than the actual machine language pro- 
gram!). A routine for assembling, and 
saving on tape machine language pro- 
grams on the PET is sorely needed. 

The program is accessed by the SYS com- 
mand, and takes advantage of the dis- 
play monitor (cursor control) for in- 
serting seeds, and clearing the arena. 
Without a serious attempt at maximizing 
for speed, the program takes about 1/2 
second to go through an entire genera- 
tion, about 300 times faster than the 
BASIC equivalent! Enough said about 
the efficiency of machine language pro- 
gramming versus BASIC interpreters? 

BASIC is great for number crunching, 
where you can quickly compose your pro- 
gram and have plenty of time to await 
the results. 

The program may be broken down into 
manageable chunks by subrout ining . 
There follows a brief description of 
the salient features of each section: 
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MAIM (hex 1900) 

In a fit of overcaution (since this was 
the first time I attempted to write a 
PET machine language program) you 
will notice the series of pushes at the 
beginning And pulls at the end. I de- 
cided to save all the internal regis- 
ters on the stack in page 1, and also 
Included the CLD (clear decimal mode) 
just in case. Then follows a series of 
subroutine calls to do the LIFE genera- 
tion and display transfers. The zero 
page location, TIMES, is a counter to 
permit several loops through LIFE be- 
fore returning. As set up, TIMES is 
initialized to zero (hex location 1953) 
so that it will loop 256 times before 
Jumping back. This of course can be 
changed either initially or while in 
BASIC via the POKE command. The return 
via the JMP BASIC (HC 8B C3) may not be 
strictly orthodox, but it seems to work 
all right. 

INIT (hex 1930) and DATA (hex 1938) 

This shorty reads in the constants 
needed, and stores them in page zero. 
SCR refers to the PET screen, TEMP is 
a temporary working area to hold the 
new generation as it is evolved, and 
RCS is essentially a copy of the PET 
screen data, which I found to be neces- 
sary to avoid "snow" on the screen dur- 
ing read/write operations directly on 
the screen locations. Up, down, etc. 
are the offsets to be added or subtrac- 
ted from an address to get all the 
neighbor addresses. The observant 
reader will note the gap in the addres- 
ses between some of the routines. 



TMPSCfl (hex 1970) 

This subroutine quickly transfers the 
contents of Temp and dumps it to the 
screen, using a aot (8l dec) symool for 
a live cell (a 1 in TEMP) and a space 
(32 dec) for the absence of a live cell 
(a in TEMP) . 

SCRIMP (hex 198A) 

This is the inverse of TMPSCR, quickly 
transferring (and encoding) data 
from the screen into TEMP. 

RSTOfiE (hex 19A6) 

This subroutine fetches the initial 
addresses (high and low) for the SCR, 
TEMP, and RCS memory spaces. 



NXTADR (hex 19BD) 

Since we are dealing with 1000 bytes of 
data, we need a routine to increment to 
the next location, check for page cros- 
sing (adding 1 to the high address when 
it occurs), and checking for the end. 
The end is signaled by returning a 01 
in the accumulator, otherwise a 00 is 
returned via the accumulator 



TMPRCS (hex 19E6) 

The RCS address space is a copy of the 
screen, used as mentioned before to 
avoid constant "snow" on the screen if 
the screen were being continually ac- 
cessed. This subroutine dumps data 
from TEMP, where the new generation has 
been computed, to RCS. 

GENER (hex 1A00) 

J^rr-C^"^^^^ ^''''ive at a subroutine where 
LIFE is actually generated. After 
finding out the number of neighbors of 
the current RCS data byte from NBRS, 
GENER checks for births (CMPIM $03 at 
hex addr. lAOE) if the cell was prev- 
iously unoccupied. If a birth does not 
occur, there is an immediate branch to 
GENADR (the data byte remains 00). If 
the cell was occupied (CMPIM 8l dec at 
hex 1A08), OCC checks for survival 
(CMPIM $03 at hex lAlA and CMPIM $02 at 
hex lAlE), branching to GENADR when 
these two conditions are met, otherwise 
the cell dies (LDAIM $00 at hex 1A22). 
The results are stored in TEMP for the 
1000 cells. 



NBRS (hex 1A2F) 

NBRS is the subroutine that really does 
most of the work and where most of the 
speed could be gained by more efficient 
programming. Its job, to find the tot- 
al number of occupied neighbors of a 
given RCS data location, is complicated 
by page crossing and edge boundaries. 
In the present version, page crossing 
is taken care of, bu*: edge boundaries 
(left, right, top, and bottom of the 
screen) are somewhat "strange". Above 
the top line and below the bottom line 
are considered as sort of forbidden re- 
gions where there should practically 
always be no "life" (data in those re- 
gions are not defined by the program, 
but I have found that there has never 
been a case where 8l's have been pres- 
ent (all other data is considered as 
"unoccupied" characters) . The right 
and left edges are different, however. 
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and lead to a special type of "geom- 
etry". A cell at either edge is not 
considered a., special by NBRS, and so 
to the right of a right-edge location 
is the next sequential address. On the 
screen this is really the left edge 
location, and one line lower. The in- 
verse is true, of course for left ad- 
dresses of left-edge locations. Topo- 
logically, this is equivalent to a 
"helix". No special effects of this 
are seen during a simple LIFE evolution 
since it just gives the impression of 
disappearing off one edge while appear- 
ing on the other edge. For an object 
like the "spaceship" (see Scientific 
American articles), then, the path 
eventually would cover the whole LIFE 
arena. The fun comes in when a config- 
uration spreads out so much that it 
spills over both edges, and interacts 
with itself. This, of course cannot 
happen in an infinite universe, so that 
some of the more complex patterns will 
not have the same fate in the present 
version of LIFE. Most of the "blink- 
ers", including the "glider gun" come 
out OK. 

This 140x25 version of LIFE can undoubt- 
edly be made more efficient, and other 
edge algorithms could be found, but 1 
chose to leave it in its original form 
B3 a benchmark for my first successful- 
ly executed program in writing machine 



language on the PET. One confession, 
however - I used the KIM-l to debug 
most of the subroutines. Almost all of 
them did not run on the first shot! 
Without a good understanding of PET 
memory allocation particularly in page 
zero, I was bound to crash many times 
over, with no recovery other than pul- 
ling the plug. The actual BASIC pro- 
gram consisted of a POKING loop with 
many DATA statements (always save on 
tape before running!). 



A Brief Introduction 
to the Game of Life 



2. A cell dies from overcrowding if it 
has four or more neighbors. It dies 
from isolation if it has one or zero 
neighbors. 



One of the interesting properties of 
the game of LIFE is that such simple 
rules can lead to such complex activ- 
ity. The simplicity comes from the 
fact that the rules a-ply to each in- 
dividual cell. The complexity comes 
from the interactions between the indi- 
vidual cells. Each individual cell is 
affected by its eight adjacent neigh- 
bors, and nothing else. 

The rules are: 



3. A cell is born when an empty space 
has exactly three neighbors. 

With these few rules, many different 
types of activity can occur. Some pat- 
terns are STABLE, that is they do not 
change at all. Some are REPEATERS, 
patterns which undergo one or moro 
changes and return to the originii 
pattern. A REPEATER may repeat as fast 
as every other generation, or may have 
a longer period. A GLIDER is a pattern 
wiiich moves as it repeats. 



1 A cell survives if it has two or 

three neighbors. REPEATERS 



• » 



STABLE 
tt f 



• ft 



GLIDERS 



ft ft 
ft ft 



ft ft ft 
ft ft ft 



ft ft 
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ft ft ft 
ft ft ft 



ft 

ft 

ft ft ft 



ft ft ft 



ft 

ft 
ft 

ft ft ft 



1900 


LIFE ORG 


$1900 


1900 


BASIC • 


$C38B 


1900 


OFFSET • 


$002A 


1900 


DOT • 


J 0051 


1900 


BLANK » 


$0020 


1900 


SCRL » 


$0020 


1900 


SCRH « 


$0021 


1900 


CHL • 


$0022 


1900 


CHH • 


$0023 


1900 


SCRLO » 


$002i» 


1900 


SCHHO » 


$0025 


1900 


TEMPL » 


$0026 


1900 


TEMPH • 


$0027 


1900 


TEMPLO * 


$0028 


1900 


TEMPHO • 


$0029 


1900 


UP • 


$002A 


1900 


DOWN » 


$002B 


1900 


RIGHT » 


$0020 


1900 


LEFT • 


$0020 


1900 


Ufl • 


$002E 


1900 


UL » 


$002F 


1900 


LR • 


$0030 


1900 


LL » 


$0031 


1900 


N • 


$0032 


1900 


SCRLL • 


$0033 


1900 


SCRLH » 


$003'< 


1900 


RCSLO • 


$0035 


1900 


RCSHO • 


$0036 


1900 


TMP » 


$0037 


1900 


TIMES • 


$0038 


1900 


RCSL • 


$0039 


1900 


RCSH • 


$003A 



RETURN TO BASIC ADDRESS 
PAGE ZERO DATA AREA POINTER 
DOT SYMBOL = 81 DECIMAL 
BLANK SYMBOL = 32 DECIMAL 

PAGE ZERO LOCATIONS 



1900 08 MAIN 

1901 H6 

1902 8A 

1903 '♦S 

190^ 98 

1905 M8 

1906 BA 

1907 8A 

1908 18 

1909 D8 

19OA 20 30 19 

19OD 20 8A 19 

1910 20 E6 19 GEN 
1913 20 00 1A 
1916 20 70 19 

1919 E6 38 
I9IB DO F3 
19ID 68 
191E AA 
19IF 9A 

1920 68 



PHP 
PHA 
TXA 
PHA 
TYA 
PHA 
TSX 
TXA 
PHA 
CLD 
JSR 
JSR 
JSR 
JSR 
JSR 



SAVE EVERYTHING 
ON STACK 



CLEAR DECIMAL MODE 



INIT 

SCRTMP 

TMPRCS 

GENER 

TMPSCR 



INCZ TIMES 

BNE GEN 

PLA 

TAX 

TXS 

PLA 



REPEAT 255 TIMES 
BEFORE QUITTING 
RESTORE EVERYTHING 
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1921 A8 TAY 

1922 68 PLA 

1923 AA TAX 

1924 68 PLA 

1925 28 PLP 

1926 4C 8B C3 JMP 

1930 ORG 



BASIC RETURN TO BASIC 
$1930 



MOVE VALUES INTO PAGE ZERO 



1930 A2 19 


INIT 


LDXIM 


1932 BD 3A 19 


LOAD 


LDAX 


1935 95 IF 




STAZX 


1937 CA 




DEX 


1938 DO F8 




BNE 


193A 60 




RTS 


193B 00 


DATA 




193C 80 






193D 00 




= 


193E 15 




= 


193F 00 




= 


19'40 80 




= 


19'* 1 00 




= 


19M2 IB 






1943 00 




- 


19'»4 IB 






19'45 D7 






19'«6 28 






1947 01 






19'»8 FE 






19H9 d8 






19'(A 06 






19UB 29 






19'«C 27 






19'<D 00 






19'4E E8 






19 HF 83 






1950 00 






1951 15 






1952 00 






1953 00 







1970 ORG 



1970 20 A6 


19 


TMPSCR 


JSR 


1973 B1 26 




TSLOAD 


LDAIY 


1975 DO 06 






BNE 


1977 A9 20 






LDAIM 


1979 91 20 






STAIY 


197B DO 04 






BNE 


197D A9 51 




TSONE 


LDAIM 


197F 91 20 






STAIY 


1981 20 BD 


19 


TSNEXT 


JSR 


1984 FO ED 






BEQ 



$19 MOVE 25. VALUES 

DATA -01 

$1F STORE IN PAGE ZERO 
LOAD 



$00 SCRL 

$80 SCRH 

$00 CHL 

$15 CHH 

$00 SCRLO 

$80 SCRHO 

$00 TEMPL 

$1B TEMPH 

$00 TEMPLO 

$1B TEMPHO 

$D7 UP 

$28 DOWN 

$01 RIGHT 

$FE LEFT 

$D8 UR 

$D6 UL 

$29 LR 

$27 LL 

$00 N 

$E8 SCRLL 

$83 SCRLH 

$00 RCSLO 

$15 RCSHO 

$00 TMP 

$00 TIMES 

$1970 

RSTORE GET INIT ADDRESSES 

TEMPL FETCH BYTE FROM TEMP 

TSONE BRANCH IF NOT ZERO 

BLANK BLANK SYMBOL 

SCRL DUMP IT TO SCREEN 
TSNEXT 

DOT DOT SYMBOL 

SCRL DUMP IT TO SCREEN 

NXTADR FETCH NEXT ADDRESS 

TSLOAD 
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1986 20 A6 19 
1989 60 

198A 20 A6 19 
198D B1 20 
198F C9 51 
1991 FO 06 
1993 A9 00 
1995 91 26 
1997 FO 0^ 
1999 A9 01 
199B 91 26 
199D 20 BD 19 
19A0 FO EB 
19A2 20 A6 19 
19A5 60 



JSR 
RTS 

SCRIMP JSR 
STLOAD LDAIY 
CMPIM 
BEQ 
LDAIM 
STAIY 
BEQ 

STONE LDAIM 
STAIY 

STNEXT JSR 
BEQ 
JSR 
RTS 



RSTORE RESTORE INIT ADDRESSES 



RSTORE GET INIT ADDRESSES 

SCRL READ DATA FROM SCREEN 

DOT TEST FOR DOT 

STONE BRANCH IF DOT 

$00 OTHERWISE ITS A BLANK 

TEMPL STORE IT 

STNEXT UNCOND. BRANCH 

$01 A DOT WAS FOUND 

TEMPL STORE IT 

NXTADR FETCH NEXT ADDRESS 

STLOAD 

RSTORE RESTORE INIT ADDRESSES 



19A6 
19A8 
19A9 
19AA 
19AC 
19AE 
19B0 
19B2 
19BM 
19B6 
19B8 
19BA 
19BC 



A9 00 

AA 

A8 

85 20 
85 26 
85 39 
A5 25 
85 21 
A5 29 
85 27 
A5 36 
8'- 3 A 
60 



RSTORE LDAIM $00 
TAX 
TAY 

STAZ SCRL 



STAZ 
STAZ 
LDAZ 
STAZ 



LDAZ 
STAZ 
RTS 



TEMPL 
RCSL 
SCRHO 
SCRH 



RCSHO 
RCSH 



ZERO A, X, Y 



INIT VALUES 



LDAZ TEMPHO 
STAZ TEMPH 



19BD 
19BF 
19C1 
19C3 
19C4 
19C6 
19C8 
19CA 
19CC 
19CE 
19D0 
19D2 
^9D^ 
19D6 
19D8 
19DA 
19DC 
19DD 
19DF 

19E6 



E6 26 NXTADR INCZ 

£6 20 INCZ 

E6 39 INCZ 

E8 INX 

El 33 CPXZ 

FO OC BEO 

EO 00 ' CPXIM 

DO OE BNE 

E6 27 INCZ 

E6 21 INCZ 

E6 3A INCZ 

DO 06 BNE 

A5 3^ PAGECH LDAZ 

C5 21 CMPZ 

FO 03 BEO 

A9 00 NALOAD LDAIM 

60 RTS 

A9 01 NADONE LDAIM 

60 RTS 



TEMPL 

SCRL 

RCSL 

SCRLL 

PAGECH 

$00 

NALOAD 

TLMFH 

SCRH 

RCSH 

NALOAD 

SCRLH 

SCRH 

NADONE 

$00 

$01 



GET NEXT LOW ORDER 
BYTE ADDRESS 



IS IT THE LAST? 
IS IT THE LAST PAGE? 
IS IT A PAGE BOUNDARY? 
IF NOT, THEN NOT DONE 
OTHERWISE ADVANCE TC 
NEXT PAGE 

UNCONDITIONAL BRANCH 
CHECK FOR LAST PAGE 

IF YES, THEN DONE 
RETURN WITH A=0 

RETURN WITH A=l 



ORG $19E6 



19E6 20 A6 i9 TMPRCS JSR RSTORE INIT ADDRESSES 

19E9 Bl 26 TRLOAD LDAIY TEMPL FETCH DATA FROf' lEMP 

19EB DO 06 BNE TRONE IF NOT. ZERO THkw ITS ALIVE 
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19ED 


A9 


20 






LDAIH 


BLANK 


BLANK SYMBOL 


19EF 


91 


39 






STAIY 


RCSL 


STORE IT IN SCREEN COPY 


19F1 


00 


04 






BNE 


NEWADR 


THEN ON TO A NEW ADDRESS 


19F3 


A9 


51 




TRONE 


LDAIM 


DOT 


THE DOT SYMBOL 


19F5 


91 


39 






STAIY 


RCSL 


STORE IT IN SCREEN COPY 


19F7 


20 


BD 


19 


NEW ADR 


JSR 


NXTADR 


FETCH NEXT ADDRESS 


19FA 


FO 


ED 






BEO 


TRLOAD 


IF A=0, THEN NOT DONE 


19FC 


20 


A6 


19 




JSR 


RSTORE 


ELSE DONE. RESTORE 


19FF 


60 








RTS 






1A00 


20 


A6 


19 


GENER 


JSR 


RSTORE 


INIT ADDRESSES 


1A03 


20 


2F 


1A 


AGAIN 


JSR 


NBRS 


FETCH NUMBER OF NEIGHBORS 


1A06 


B1 


39 






LDAIY 


RCSL 


FETCH CURRENT DATA 


1A08 


C9 


51 






CMPIM 


DOT 


IS IT A DOT? 


1A0A 


FO 


OC 






BEQ 


OCC 


IF YES, THEN BRANCH 


1A0C 


A5 


32 






LDAZ 


N 


OTHERWISE ITS BLANK 


1A0E 


C9 


03 






CMPIM 


$03 


SO WE CHECK FOR 


1A10 


DO 


14 






BNE 


GENADR 


A BIRTH 


1A12 .A9 


01 




BIRTH 


LDAIM 


$01 


IT GIVES BIRTH 


UT* 


91 


26 






STAIY 


TEMPL 


STORE IT IN TEMP 


1A16 


DO 


OE 






BNE 


GENADR 


INCONDITIONAL BRANCH 


1A18 


A5 


32 




OCC 


LDAZ 


N 


FETCH NUMBER OF NEIGHBORS 


1A1A 


C9 


03 






CMPIM 


$03 


IF IT HAS 3 OR 2 


1A1C 


FO 


08 






BEQ 


GENADR 


NEIGHBORS IT SURVIVES 


1A1E 


C9 


02 






CMPIM 


$02 




1A20 


FO 


04 






BEQ 


GENADR 




1A22 


A9 


00 




DEATH 


LDAIM 


$00 


IT DIED! 


1A24 


91 


26 






STAIY 


TEMPL 


STORE IT IN TEMP 


1A26 


20 


BD 


19 


GENADR 


JSR 


NXTADR 


FETCH NEXT ADDRESS 


1A29 


FO 


D8 






BEQ 


AGAIU 


IF 0, THEN NOT DONE 


1A2B 


20 


A6 


19 




JSR 


RSTORE 


RESTORE INIT ADDRESSES 


1A2E 


60 








RTS 






1A2F 


98 






NBRS 


TYA 




SAVE Y AND X ON STACK 


1A30 


t8 








PHA 






1A31 


8A 








TXA 






1A32 


48 




/ 




PHA 






1A33 


AO 


00 






LDYIM 


$00 


SET Y AND N = 


1A35 


84 


32 






STYZ 


N 




1A37 


A2 


08 






LDXIM $08 


CHECK 8 NEIGHBORS 


1A39 


B5 


29 




OFFS 


LDAZX 


OFFSET 


-01 


1A3B 


10 


15 






BPL 


ADD 


ADD IF OFFSET IS POSITIVE 


1A3D 


49 


FF 






EORIM 


$FF 


OTHERWISE GET SET TO 


1A3F 


85 


37 






STAZ 


TMP 


SUBTRACT 


1A41 


38 








SEC 




SET CARRY BIT FOR SUBTRACT 


1AM2 


A5 


39 






LDAZ 


RCSL 




lA^lU 


E5 


37 






SBCZ 


TMP 


SUBTRACT TO GET THE 


1A46 


85 


22 






STAZ 


CHL 


^r\nnc>j^n* kitT'Ti^LlDOO ATMSDC*QQ 

CORRECT NEIGHBOR ADDnbbci 


1AK8 


A5 


3A 






LDAZ 


RCSH 




1AMA 


85 


23 






STAZ 


CHH 




lAl^C 


BO 


1 1 






BCS 


EXAM 


OK, FIND OUT WHAT'S rntnt. 


1AME 


C6 


23 






DECZ 


CHH 


PAGE CROSS 


1A50 


DO 


OD 






BNE 


EXAM 


UNCONO. BRANCH 


1A52 


18 






ADD 


CLC 




GET SET TO ADD 


1A53' 65 


39 






ADCZ 


RCSL 


ADD 


1A55 


85 


22 






STAZ 


CHL 


STORE THK LOW PART 



1A57 


A5 


3A 




LDAZ 


RCSH 


FET( ,i THE HIGH PART 


1A59 


85 


23 




STAZ 


CHH 




1A5B 


90 


02 




BCC 


EXAM 


OK, WHAT'S THERE 


1A5D 


E6 


23 




INCZ 


CHH 


PAGE CROSSING 


1A5F 


B1 


22 


EXAM 


LDAIY 


CHL 


FETCH THE NEIGHBOR 


1A61 


C9 


51 




CMPIM 


DOT 


DATA BYTE AND SEE IF ITS 


1A63 


DO 


02 




BNE 


NEXT 


OCCUPIED 


1A65 


E6 


32 




INCZ 


N 


ACCUMULATE NUMBER OF NEIGHBORS 


1A67 


CA 




NEXT 


DEX 






1A68 


DO 


CF 




BNE 


OFFS 


NOT DONE 


1A6A 


68 






PLA 




RESTORE X, Y FROM STACK 


1A6B 


AA 






TAX 






1A6C 


68 






PLA 






1A6D 


A8 






TAY 






1A6E 


60 






RTS 







This program was prepared by: 



Dr. F. H. Covitz, 
Deer Hill Road, 
Lebanon, 
N.J. 08833, 



100 READL 

110 READ AI:C^LEN(A*i:IFA<^"<"THtNlNli 
120 IPC 10RC.2THEH2»« 

130 A = A5CiA$)-'»8:B = ASC':RIC.HTJiA*,1 ' "46 

140 H = l< + 7:M ft >9 ) -(C = 2 )»( 1 6* ( I A ? 1 I ) 

150 IFN 0ORN>255THEN200 

160 P0KEL,N:L=L+1 :GOT01 10 

200 PRINT"fiYTE"L" = ["A*": '77":EN[i 

300 DATA6400 

310 DATA 08. 48, 8A, 48. 98. 48. PA. 8A. 43. [18.20. 30, 19. 20, 8A, 19, 20. E6, 19. 20. 30, 1ft 
3''0 [iATA20 , 70 .19.A9.FF,CIi,12,E8.F0,F0,4C.8£i,C3,AA,68,28,4C.8Ei,C3 
330 DATA EA,EA,EA,EA,EA,EA.EA.A2,19,BD,3A,19,9':,.1F,CA,D0.F8.60.00.80.00.15.00 
340 DATA80,00, IB. 00, IB, [17,28,01 .FE.D8,D6,29 , 27 . 00. £8,83. 00. 15,^30. 00 
350 DATAEA.EA.EA.EA.EA.EA,EA,EA.EA,EA.EA.EA,EA,EA,EA.EA.EA,i-:.h,!:A.I:,;.EA,IiA,I:h 
360 DATAEA.EA.EA,EA,EA,20,A6,1?,B1.26.D0,06.A9.20,91 , 2 v1 . D3 . 04 . A<v . b 1 . V 1 , . /0 
370 DATA BD,19.F0.ED,20.A6.19.60.2i?,A6. 19,B1 , 20 , C9 , 5 1 . F0 , 06 , A9 . y30 , v 1 , As . I- 
380 DATA04,A9 ,01 . 9 1 . 26 , 20 , BP , 1 9 . F0 . E B . 20 . A6 . 1 9 . 60 . A9 . 00 , AA , A8 , y'5 , 20 . 3b . 26 . 35 
390 DATA39.A5,25,85,21 ,A5,29,85,27,A5.36,85.3A.60,E6.26.E6.20,E6,39,E8.E4 
400 DATA33,F0,0C.E0.00,D0,0E,E6,27.E6.21 ,E6.3A,D0,06,A5.34,C5,21 .F0.03,A9,00 
410 DATA 60,A9,01 ,60.EA,EA.EA.EA.EA.£A.20.A6,19.B1 ,26.D0,06.Av.20.91.39,D0 
420 DATA04,A9.51 ,91 ,39,20,BD.19,F0,ED.20,A6,19,60,20,A6,r9,20,2l-, lA.BI ,39,C9 
430 DATA51 ,F0,0C.A5.32,C9,03,D0.14,A9.01 .91 .26.D0,0E,A5,32,C-9,03.F0,03.C?,02 
440 DATAF0,04,A9,00,91 ,26,20,BD.19.F0.D6,20.A6.t9.69.98,4e,8A.48,A0,00.84.32 
450 DATAA2.08.B5,29.10,15.49.FF,85.37,38,A5,39,E5,37,35,22,A5.3A.85,23,B0,t 1 
460 DATAC6,23,D0,0D,18,65,39,85,22,A5,3A,B5,23,90,02.E6.23,B1,22.C9,51,D0,02 
470 DATAE6,32,CA,D0,CF,68,AA,68,A8,60,* 
READY. 



Mr J. smith of 38 Claremont Crescent, Croxley Green, Rickmansworth , 

Herts. WD3 3QR 

wrote in: The error in the definition of arc cos X should^ I 

feel, be corrected. A possible version is:-© 

ACS X = ATN(SQR (1-Xt2) /X) + ( 1-SGN (X) ) * T\ /2 

this correctly gives ( unless arc cos {-^.5) as 

CoAfc^. . . 
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YOUR LETTERS (cont.) 



2t\. /3 (12^°) ; your formula gives 

arc cos (-^.5) as -60° this would be incorrect 
in e.g. a "cosine rule" problem. 

As you expect PET to be used in educational establish- 
ments for solving trig, problems, I think it important 
to put this right. 
C*)Note that if X is negative 
1-SGN{X) = 2 

& if X is positive 
1-SGN{X) = 

this ensures that a correct multiple of "TV. is added to the 
arctangent. Also, would it not be better to suggest.. 

P = IZ^/ji ( before FNS is used) 

DEFFNS(V) = SIN (V/P) etc. 
for the user defined functions? 

HERE ARE SOME COMMENTS FROM MR. M.J. SMYTH who is th« 
Senior Lecturer, Department of Astronomy, Royal Observatory, 
Edinburgh EH9 3HJ. 

Using .BASIC and the IEEE 488 bus, PET can input 40 
numbers per second from a 3^ digit voltmeter (Hewlett 
Packard 3437A) . Also using BASIC, the user port can 
generate an output trigger (e.g. to a measuring device) 
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YOUR LETTERS (cont.) 



within about 10 ms of an input trigger. We have not 
yet tried using assenibler. But the BASIC speeds make 
possible very interesting applications in equipment 
control and real-time data processing. 



To input data in BASIC without returning to BASIC command mode 
on receipt of a null string then an input statement can be simulated 
by a GET loop which contains additional statements to cope with DEL 
codes. This has the additional advantage that if there is a displayed 
frame on screen the frame characters will not be accepted as part of 
the input . 

The attached listing shows the above routine. This starts at line 9000 
and to use it, instead of INPUT A|8 you put GOSUB 9000:A?=INJ(. 

eBQQ REH SUBROUTINE TO oIHULftTE NON-PET STftt^DrtRP INPUT STATEhETa 

eeiQ REM BTANDriRD ir«IPUT DOES NOT BREAK ON RECEIPT OF NULL STRING 
6026 REH "Tir<PUT" COULD BE ftLSO BE SIHULflTED EftSILV 

8Q3Q REH ZnS 13 DEFirO IN LINE 18 
9680 INf="" :PRINT" ? ". 

=5810 .3OSUB9Q70 .PRIHTZf^<<ZB) ; : IF2$=""THENg8ie 

mZQ IFZ$=CHRi(13)THENPRINT" " :RETURN 

=iB3Q IFZ$=CHRI(20) THB<0NS6N<LEH ( IN$> ) +l'30T09eiB..g86e 

^848 PRINTZ*.; INt=IN*+Z$:eOT09818 

9868 PRINTZi. : IN$=HIDi(IfU.i..LErU'IN$>-i:) :'30T09B1Q 

9879 2B=1+<ZB=1) : FORZrt=iTO&B :GET2 $ - IFZIO" " THEI-IRETURN 

9838 NEXT^P^ETURN 
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Snowless Version of Life: 



The "Life" program listed in Transactor #5 can be further 
refined to eliminate the snowy effect on the screen. 
Mark_ Taylor, in the U.K., has written to us with a snowless 
version of Life. He also included another interesting program 
illustrated in example 2: 



1. If you are plagued by snow on the screen during POKE operations to 
the screen RAM or with machine code programmes, then If In BASIC 
location 59409 Is POKEd with 52 then that will Inhibit the character 
generator. Any transfer operations can then be carried out with the 
screen totally blank. To restore normal operation the above location 
should be POKEd with 60. For machine code programmes then LDA 52 & 
STA ABSOLUTE the above location will be somewhat faster. 

The attached listing is a snowless version of "Life". 



186 REif^SL 

118 REftPftf .C=LEN(A*) . IFfl$ = "*"THENENI) 
129 IFCC10RC:>2THEN2e8 

138 fl=ASC<AI) - 48 . B=ftSC (R 1 6HT$ Crt $ . 1 ) ) -43 

148 N=Bf7*<B33)-<C.=2;)i|(l&»-;c:ft+7i»(A>9)):) 

158 IFNCe0RrO255rHE^CG9 

168 POKEL>N:L=LH.GOTO110 

208 PRINT"BVTE"L"=C"f^4"] ???" :END 

388 ])rtTA&406 

318 M TASe . 30 , 1 9 , 26 .. art , 1 9 , 2B .. E6 , 1 9 , 28 • OQ , 1 A , A§ .. 34 , 3 P , 1 1 . E8 

328 DArA28,7G.19,A9,3C,3», ll..E3,A9.rF..CD,12,Ee>F8.E6,4C.3B,C3,AA..63..23,4C.3B>C^ 
338 DATA E(=»..EA , EA, Eft..Ert ,EA, Eft..A2 , 19 , BD .Srt . 19 , 95 . IF , CA, DB..F3 , 66 , EiB,.3g .80 , 15 .80 
348 l)rtrA8e,88,lB.eB..lB,])7,c'8..Ql,FE,D8..D6,29,27,QQ,E3,83..89,15,ee..80 
358 DATAEA.Ert,EA.EA.Ert,EA,Eft.Ert,EA.EA..Ert,EA.EA,Ert,EA.EA..ER..EA,EA..Ert,EA,EA.Ert 
368 DATAEA.EAiEA . EA..Erl ,20 , A6.. 13 .Bl , 26, DQ ,86 , A9,28 ,91, 26, DQ ,94 , A9,51 ,91 , 26,28 
378 DATA BD, 13 , FB, ED,20 . A6 , 19..6Q , 26, A6, 19 , Bl , 28,'::9 , 51 , FB,86 , A9. 88,31 , 26, FB 
388 ])flTAB4,A9,01,91..26,20.BD,13,F0,EB,28,A6. 19,68,A9.Ei0,AA,A3,85,28,35,26,35 
398 DrtTA39,A5,25,85>21,rt5.29,35,27, A5,36,35.3A,68,E6,26,E6,20.E6,33,E3,E4 
488 BrtTA33,FQ,0C,Ee,88,])0,eE,E6,27,E6,21,E6,3A,D8,i36. A5,34,C5,c'l,F8,03, A9,e8 
418 DATA 68.A9 ,01,6B,EA.EA,EA,EA ,EA,EA,29, A6, 19 .Bl , 26, D8,96 , A9, 28,91 , 39 , DB 
428 BATAB4,A9,51,9i,33,20,ED,13 ,F0, ED, 28. A6. 19, 68,20. A6, 13,20, 2F,1A,B 1,39, 03 
438 BflrA51,F8,0C, A5,32,C9,e3,D8.14,A9,81,91.26,D8,0E, A5,32,C9.e3,F8,Q3,C9,02 
448 BATAFB,84,A9.00,91,26.2e,BD, 19,FEi,D3.20, A6,13,60.98,43,3A.48,A8,80.84,32 
458 BArAA2.83.B5,29,18,15,49,FF,35.3?,33,A5,S9,E5,37.85,22,A5,3A,35,23.B0,ll 
468 DftTAC6,23,D0,BD,13,65.39,85,22. A5,3A.35,23,38,02,E&,23,B1,22,C3.51.DB,82 
478 BArAE6,32.CA.De,CF.68, AA,63,A8,60,* 
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Programme Overlays on a PET - Supplied by Mike Stone 

1, The 8K core of a PET is not usually a limitation in the 
home computer and hobbyist world, nor even in an 
educational environment where students are just creating 
small exercise programs. With the devices now available 
for attachement - the second cassette ,( the printer, and 
floppy discs shortly) - the PET becomes a valid and 
genuine data processing machine, and complex string 
handling programs with files may well run out of space. 

2. Programmers with experience on other computers know 
that one answer to this kind of problem is to break 
the program down into segments, so that only part of 
it is occupying memory at any time, and all or part 
is "overlaid" by other segments as required. When 

the program segments are on a disc, direct access features 
normally permit great flexibility, in that any required 
segment can be loaded; for tape only systems, the 
segments have to be arranged in order of need - e.g. job 
initialisation, main coding, and termination segments. 
Since PET'S BASIC includes a LOAD instruction to acquire 
dynamically a new program from tape, and (provided the 
new program is no longer than the one issuing the K3AD) 
all data areas remain available to the loaded program, 
the basis exists for an overlay system. However, for 
true overlaying, it is essential that some of the 
original program (e.g. control of the program flow, 
common subroutines, etc.) be retained throughout, 
whatever new segments are loaded. PET does not do 
this automatically; this paper tells you how to do it. 



5. 
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4. PET stores BASIC programs in location 102^4- upwards. 
Note that the pointers, and line numbets, are pairs of 
bytes giving low/higli. The high must be multiplied by 
256 and added to the low to give the actual quantity. 

5. Whenever a line of code is entered from the keyboard, 
PET moves every statement around as necessary and re- 
adjusts all the chaining, so that statements are always 
stored in strict sequence of line number. 

6. When your program contains a LOAD statement, this does 
NOT imply either CLE or NEW. The new program is simply 
loaded in at (and then executed from) location 102^-, 
for as much space as it needs. The new program does 
NOT (as with some BASIC 's) just replace those statements 
with identical line numbers; it is strictly a new 
program in its own right. However, any program 
statements at the end of the LOA DING program whose 
space is not required by the LOADED program do remain 
unscathed by the LOAD. The problem is that the new 
program has no (forward-) chain into them, so PET 
knows nothing about them. 

It follows from the above that if we code the 
instructions-to-be-preserved with high line numbers; 
and if the space needed by the newly-loaded segment 
does not over-write them; and if we can force the new 
segment to chain into the old instructions; then 
we have a real overlay system. So, if during the 
original program you can find in memory the last 
statement not to be preserved, you know it forward 
chains into the next highest line number, i.e. the 
first of the statements you do want preserved. Then 
when the overlay arrives, you need only find its 
very last statement and replace its forward-chain by 
the one you previously found, and both new and old 
code form a contiguous program. 
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8. A very simple illustration follows 

Enter this program (do NOT put any spaces, except 
after line numbers) : 

10 A=A+1 

20 GOSUB50 

30 LOAD"NEWPROG" 

50 PRINTA*2 

55 RETURN 

This is stored as follows ("PEEK" values) : 



forward chain; 4 x 256 = 1024 + 11 = 1035 

I line number 10 
A 

A 
+ 
1 



1024) 





5) 


11 


6) 


4 


7) 


10 


8) 





9) 


65 


1030) 


178 


1) 


65 


2) 


170 


3) 


49 



45 



4) 





^ 5) 


19 


6) 


4 


7) 


20 


8) 





9) 


141 


1040) 


53 


1) 


48 


2) 





^ 3) 


34 


4) 


4 


5) 


30 


6) 





7) 


147 


8) 


34 


9) 


78 


1050) 


69 


1) 


87 


2) 


80 


3) 


82 


4) 


79 


5) 


71 


6) 


34 


7) 





^ 8) 


43 


9) 


4 


1060) 


50 


1) 





2) 


153 


3) 


65 


4) 


172 


5) 


50 


6) 





7) 


49 


8) 


4 


9) 


55 


1070) 





1) 


142 


2) 





^ 3) 






forward chain; 4 x 256 = 1024 + 19 = 1043 



line nvimber 20 

GOSUB 

5 





forward chain; 4 x 256 = 1024 + 34 = 1058 



line nvutiber 30 

LOAD 
II 

N 
E 
W 
P 
R 

G 



forward chain; 4 x 256 = 1024 + 43 = 1067 



line number 50 

PRINT 

A 
* 

2 



forward chain; 4 x 256 = 1024 + 49 = 1073 

line nvutiber 55 
RETURN 
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If we want lines 50 and 55 to be available to an overlay, 
the important information is the forward chain in line 30, 
i.e. locations 1043 and 1044. 

To see how it works, SAVE"PR0G" and leave the cassette 
Record and Play keys down. 

Enter NEW; then the following (again, no spaces) : 

5 A=A*2 
10 GOSUB50 
15 STOP 

LIST if you like, to confirm that there are no lines 
50 and 55. 
SAVE"NEWPROG" . 

Now rewind your tape, and press RUN. 
PROG will be loaded, will print "2", and continue up 
the tape. When NEWPROG has been loaded, you will get 
PUNDEF'D STATEMENT ERROR IN 10 

That is because the overlay looks like this: 

forward chain to 1035 

I line number 5 
A 

A 
* 

2 

forward chain to 1043 

line number 10 

GOSUB 
5 
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1024) 





5) 


11 


6) 


4 


7) 


5 


8) 





9) 


65 


1030) 


178 


1) 


65 


2) 


172 


3) 


50 


4) 





-> 5) 


19 


6) 


4 


7) 


10 


8) 





9) 


141 


1040) 


53 



1) 


48 


2) 





^ 3) 


25 


4) 


4 


5) 


15 


6) 





7) 


144 


8) 





^ 9) 






forward chain to 104 9 

line number 15 
STOP 



10. The last line, 15, does not chain into the old line 50. 

But that line 50 is still there, in location 1058 et seq. 
So, do this: 



POKE 1043,34 
POKE 1044, 4 



LIST - and behold, NEWPROG now includes lines 50 
and 55.' 

You can RUN if you like, to prove it. 

What we have done is to use what we discovered about 
the first program (last sentence of paragraph 9) to 
modify the second program. 

11. How do you program all this to happen automatically? It 
is not at all difficult. Let us assume that the 
statements-to-be-preserved are at lines 5000 and upwards. 
So, just before that, code this (NO SPACES) : 



4997 N1=PEEK(201) 

4998 N2=PEEK(202) 

4999 RETURN 

5000 

(Locations 201, 202 always contain, during instruction 
execution, the address of the next instruction - 
strictly, the "0" between instructions.) 



Get (low) address of line 4998 
Get (high) address of line 4999 
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12. Now, just before your program wants to load in the 
overlay program, code this (spaces if you likel): 



850 GOSUB 4997 

860 Nl = Nl + 14 Low address of 4999 (the length 

of 4998 is 14 bytes) 
870 N2 = N2 * 256 Actual high address of 4999 

880 If Nl < 256 THEN 900 Adjust low for page boundary 
890 Nl = Nl - 256 

900 BC = Nl + N2 + 1 BC is now actual machine address 

of line 4999 

910 Zl = PEEK(BC) :Z2=PEEK(BC+1) Hold the forward-chain 

locations out of 4999 

920 LOAD "NEWPROG" 



13. As the first instructions of NEWPROG, the chain-adjusting 
must be done. The necessary code is very similar: 

At the end of NEWPROG, as the very last statements, 
code (NO spaces) : 



3997 N1=PEEK(201) 

3998 N2=PEEK(202) 

3999 RETURN 

And at the beginning code: 
10 GOSUB3997 
20 N1=N1+14 
30 N2=N2*256 
40 IF NK256 THEN 60 

50 Nl=Nl-256 

60 BC=N1+N2+1 BC is now actual machine 

address of 3999 
70 POKE BC,Z1:P0KE BC+1,Z2 



14. It is worth just reiterating that the total size of the 
incoming overlay (irrespective of line niambers; just it 
size in bytes occupied) must be less than the total 
size of the instructions being overlaid. 



Mike Stone 
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ABBREVIATING BASIC WORDS 



As explained in the instruction manual, any BASIC word takes 
up 1 byte of memory storage space. It has been stated that 
the work "PRINT" can be abbreviated to "?" which saves time 
on entering programs. When listed, the word is expanded 
to its full form. Both forms take 1 byte per word. 

We now have information on how to abbreviate the complete 
list of BASIC words. The algorithm to remember is as follows: 

1. For any BASIC word, type in the first letter of the 
word (e.g. V for VERIFY) . 

2. Hold down the 'Shift' key and type in the second letter. 
If you are in graphics mode, this will appear as a 
graphic character (e.g. }^ for E) . It is a good idea 
to go into lower case mode as the two letters are then 
easy to read. (Poke 59^68, 1^ — * 12 for PET to graphics). 

In some cases, this two-letter method gives a possibility of 
more than one BASIC word (e.g. READ and RESTORE). For one 
of the words (usually the longer) it will be necessary to 
type the first two letters and the shifted third. All these 
abbreviations are converted to full words upon the command 
LIST. 

Below is a complete list of the words and abbreviations: 
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BASIC ABBREV 



LET 


Le 


READ 


Re 


PPTNT 


p 




Pt- 

irx 






XxlilfiM 


Th 

X 11 


POP 


Vrt 


NEXT 




r>TM 


1^ -1- 




En 

XUll 






RESTORE 


REs 


GET 


Ge 


GOSUB 


GOs 


OPEN 


Op 


CLOSE 


CLo 


SAVE 


Sa 


LOAD 


Lo 



BASIC ABBREV 



DEF 


De 


RETURN 


REt 


STOP 

O X wx 


St 


CTFP 


X w 


X IN IT U J. 


Tn 

XXI 




oy 




Ab 


SOR 


Sa 




Rn 


X 


Si 


r\ J. L>f 




EXP 


Ex 


AND 


An 


NOT 


No 


VAL 


Va 


ASC 


As 


CMD 


Cm 


VERIFY 


Ve 



BASIC ABBREV 



RUN 


Ru 


CLR 


CI 


LIST 


Li 


CONT 


Co 


FRE 


Fr 


TAB ( 


Ta 


SPC ( 


Sp 


PEEK 


Pe 


POKE 


Po 


USR 


Us 




by 


WAIT 


Wa 


LEFTj? 


LEf 


RIGHTS 


Ri 


MIDS? 


Mi 


CHR? 


Ch 


STR^ 


STr 



SIMULATING A CALCULATOR ON YOUR PET 

Many users have asked whether the PET can do live calculations. 
Although a simple sum such as 2 + 3 can be performed thus: 

PRINT 2+3 'RETURN' 
it would be more convenient if the operation of a calculator 
could be simulated directly. The following program should 
give you an idea of how this can be achieved: 
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5 REH GRrlPHICS 

IB PRINT-L I y 

2B PRINT" I |.. 

25 PRINT" I [.- 

36 PRINT" I f 

4B FOR I = 11013 

56 PRINT" 

66 r€XT 

1B8Q REM CONTROLLER .•• INPUT 

1618 '3 E T A t . IFrt t = " " GO TO 1019 

1628 rt=ftSC(Fli:) 

1638 IFA>57THEN408Ei 

1648 IFAC4SANCfl<>4&THEr<238£i 

1658 IF T=l THENXf="" .T=9 

1655 IFLEH<;a:) = 3THENDi="ERR0R " :G03!JB5115 : T=l -.eOTOiaag 

1668 ;a=K$+AI ;K = VrtL<;U) ;'50SL!B5Q29 

1678 coToieee 

£688 REM GPERi^TORS 

2618 IFAC4eCRR=44THEh'D5= "ERROR " :=30SUB5115 . CLR ; GOTO 1380 

2628 iFA=46THENN=r4f 1 .E<rn =K : K=0 ; V = 8 ; 0$.;N) = '0 S ; 0*="" . T = l .GO3UB50BB 

2638 I F 1 =" #" TH E N K=K* V 

2648 IF0f="/"THENK='T7H 

2653 IFOf="+"THENK=K+V 

2668 IFOf="-"THENK=V-H 

2665 V=K:0*=ft^ :T=i 

2673 IFA=41TH£NV = B<fO .Qi^OfOD ;N=N-1;T=8 

2638 'SOSUBSeSQ : ^30101838 

4688 IFAf="S" THENK=Sir<<J\) 

^618 IFAr="C" THENK=COS 0< ) 

4628 lff^$=" T" THENK=TfltN G< ) 

4633 IFAf="L"THENK=LOGG<) 

4648 I f ft $="E" THE N;s=E;P C< ) 

4642 IFAf="="'oOTO203e 

4643 irAf="^-"THENCLR.T=l 
4645 ■3'3SUB5e88 

4658 ■j'OrOiEiOe 
5688 REM PISPLAV 
5618 )ii=STR$C,<) 

5628 Dt=RIGHTI(" "+-X«,ll)f" 
5638 I F X C=99393 9 9 99ftf ffiJO . 8 1 G0T05 1 1 5 
5043 IFX=0GOTO5115 

5658 IFABS<;<)51E380RftB3(X)ClE-33THEND*="ERR0R ":QOT05115 
5188 RIsRIGHTK" "+;-{i,15) 
5118 Dt=LEFT*<RI,ll)+" "♦RI6HT*<Rf .3) ^ 



5115 PRINT'1 
5128 RETURN 
BEflDV. 
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Although the program is by no means perfected, the framework 
exists for a versatile program. Lines 4000 onwards determine 
the functions so that when 'S' is pressed the sine of the 
number on display is calculated and to clear all registers 
'-«-• is pressed. The normal operation for +, -, x and t is 
the same as a straightforward calculator, and there are 
multiple sets of brackets. 

This idea could be used to simulate actual models - including 
progrjunmedjle calculators, thus giving access to a wide 
reuige of ready-written low key software. We would like to 
hear from any user vho succeeds in doing this. 

BITS AND PIECES 

Some more hints and tips to help you write efficient 
programs : 

When writing REMark statements, graphics and lower 
case can be included if they are put inside inverted 
comma's. This enables separating lines such as: 

10 REM " " 

************ 

When using subscripted varieibles such as A (4) the operating 

system automatically reserves 10 elements without having 

to declare a dimension with DIM. If, however, you are 

using a very long program and are using less than 

10 elements per variable - say 4 - it will save space 

to declare the dimension's length. For example: 

10 DIM A(4) , C$(3) 

************ 
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To display a number (N) to D decimal places, use the 
following routine: 



10 M = INT(N*10+D+0.5)/10+D 



20 PRINT M 



************ 



For an intriguing display of graphics, try riinning this 
one line program entitled "BURROW" 

1 A$="<^iy^4' " :PRINTMID$ (A$ ,RND ( . 5) * 4+1 , 1) " * 4 " ; :FORT=1TO30: 
NEXT : PRINT "la <^ " ; : GOTOl 

************ 



STANDARD SYMBOLS 

I have assembled a small table of symbols that are not hard 
to obtain from a typewriter (if you are usir^ one) and are quite 
distinguishable if you write out your programs in capital block 
letters. It would be appreciated if you use these when submitting 
software for publication; especially programs containing cursor 
control . 

SYMBOLS 

h - cursor home 
c - clear screen 
cr- cursor right 
cl- cursor left 
cu- cursor up 
cd- cursor down 
d - delete 
i - insert 

To represent any graphic characters clearly, the character 
below should be followed by the *@* . For example: 

S = M@ (M w/Shif t on) 

Following this standard should make programs fairly easy to 
read however any suggestions are quite welcome. 



- carriage return 
]6 space thlank) 

1 - RVS on 
/ - RVS off 
@ - Shift on 
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INTEEFACEES . 



This month I received a letter from Andrew Hwang of Concordia 
Designs in Toronto. Andrew has successfully interfaced a PET 
to an X-Y Plotter. Excellent! A copy of his response follows. 
Thank you Andrew. 

If anyone else has gizmos or gadgets interfaced to their PETs, 

be it practical or unusual, write in and tell us about it I 

A brief note is sufficient (such as Andrew's), and businessess . . . 

the "TRANSACTOR" is sent to over 500 subscribers. 

Get the hint? 

INNOVATIVE 

CUSTOM DESIG 

SPECIALISTS 

IKTiirtFACIKG iJIVISICK 
P.O.Box 219, Station D, Scarborough, Ontario, Canada. MIR 5B7 




CPU Club Members 

c/o Commodore Business Machines Ltd. 
3370 Pharmacy Ave., Agincourt, 

OKT^rilG. ivilW 2K4 13 Jec.l97& 



riii: Full Graphical Plotting Capability 
v/ith the PiiT and a Jigital Plotter 



Dear Fellow CPU iVIembers : 

V(e have succeeded in interfacing the PiiT v^ith a 
Digital Plotter made by Houston Instruments. Full hard-copy 
graphs of data or functions can now be easily plotted with pen 
accuracy of up to 0.005 inches. Softwares are also available 
to issue plotting commands in simple basic steps. Anyone wishing 
more information may write to: Concordia Designs, Interfacing Div., 
P.O.iiox 219, .station D, Scarborough, Ontario, Canada. Ulil 5^7 • 

Faithfully, 




Mr . Andrew Hwang 1/ liTTo c , 
55 PiiT User Club Member #65 



Jim Butterf ield, well known PET enthusiast, has sent to 
Commodore a couple of interesting items which have also been 
passed on to PET User Notes. Thanks Jim... and thanks for 
recognizing Brad as a source — maybe he'll send in something 
else as well. 



Stimmary of Cassette data file "patches" 

The following information has been passed around users, and is 

now "official" with the issuance of a Commodore bulletin. It seems 

worth while to summarize briefly: 

1. Opening a file for writing: an omission in current ROM programs 
makes it highly desirable to precede aU OPEN statements with 

a couDle of ?OKEs: 

before OPEN x,l., . for writing: «OKE 2h3,l?2 : POKE 2hh,2 
before OPEN x,2,.. for writing: POKE 2U3,58 : POKE 2UU,3 

2. When writing taoes, it is useful to increase the spacing between 
tane blocks; otherwise you might miss a block during subsequent 
reading. There are several aporoaches to this i my technique is 
to call the following subroutine immediatalT- after each PRINT#: 

Cassette ,^1 Cassette .#2 

950 IF Z9<-PEEK(625)G0T0 990 950 IF Z9<-PEEK(626)G0T0 990 

960 POKE $9U11,5 3 960 POKE 59i456,207 

970 FOR Z9-1 TO 60:liSrr Z9 970 FOR Z9-1 TO 60: NEXT Z9 

980 POKE 59Ull,6l 980 POKE 59U56,223 

990 Z9-PEEK(625):RETT]RN 990 Z9»PEEK(626 ) :RETURN 

3. Even with the above coding, it seems wise to guard against a 
potential "dropped block". Think in terms of writing a "number 
of items" total on tape so that when reading, you can check that 
nothing has been lost. 

li. Don't ?RINT# a line of over 80 characters unless you're prepared 
to do some careful work with GET# statements when you read it back 
in. In general, avoid "print punctuation" when writing (PRTNT^l, AjB 
... ERINT#2, XS,T$); each data element can be written as a separate 
"line". Watch for long strings. 

5. Either: check the value of ST after every read, or use your own 
checking routines on your data. ST can be useful, but doesn't 
guarantee your data is 100^ good. IF ST-0 .. no errors are seen; 
IF ST>63 .. you have come to the end of file; if anything else, 
an error has been detected, 

6. Always CLOSE your cassette files after you 're finished with them. 
When writing, your data is accumulated into a buffer .. if you 
don't CLOSE, it may not go onto taoe. 

Most Basic errors abort the cassette file without CLOSEing it; 
if this happens while you have a cassette tane open for writing, 
better start over . . your tape will likely have data missing. 
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UNLIST ReTialted 



Jin Butterfield, Toronto 



Larry Tessler's UNLIST appeared in User Notes without much fmnfare. 
If you can read between the lines, however (and cope with the 
typos) it's quite a blockbuster of a program. 

In general, it allows a program to be handled as data ... using the 
UNLIST key, you can re-proceas programs as if they were data files , 
and create such things as prograuv- writing programs, l«ng\iage translators, 
and many other startling things . 

Perhaps the most immediate use of UNLIST for the casual coircuterist 
is to merge two programs together. One program could contaidn 
subroutines; and these could be merged with other programs to 
save a lot of typing. It 's especially useful to be able to merge 
a single set of DATA statements into several programs, each of 
which is set up to process the DATA in different ways. 

Brad Templeton (Toronto) has passed ne an even more concise way of 
doing the same thing. I'll go through the whole operation, steo by 
sten. 

First, prepare the nropTam you will want to merge in the following 
manner. Load the Droeram. Put a blank tane into the cassette and 
rewind. Enter OPEN 1.1,1 : CMD 1 : LIST, Be sure to out this on 
a smerle line, using colons as indicated. Press RECORD and PLAY as 
instructed. The tane will move. When it stoos . type ?"P0KE6ll ,0" : 
PRINT^1:CL03E1. Yavr taoe is now ready, and PET should be back to 
normal operation. You may file this tape and use it at any future 
time . 

Now for the merge. V/hen you have your second program loaded into 
the PET, mount the tape you have previously written. Type OPENl, 
press PLAY as requested, and wait for the tape to stop. 

Here comes the tricky bit. Clear the screen, give k cursor down's, 
and type the following line, but DO NOT HIT RETURN: 

POKE611,l:P0KE525,l:?0KE527,13:?"h" (h is Cursor Hone, displaying reverae 

Don't hit retiirn. Instead, press cursor home and 6 cursor downs ... 
then type the identical line. This time, hit RETURN at the end of 
the line and listen to the tape move. 

Eventually, things will stop with a ?SYNTAX ERROR or ?OUT OP DATA 
printed between the two lines, and the tape should atop, (if it 
doesn't, stop it with the RUN-STOP key). The merge is now complete. 

Tyne CLOSE 1 to close the file. 

(The ?"^0KE611.0" in oaragraoh 5 may be unnecessary .. I put it there 
to guard against a nrocessor crash situation I encountered during 
early testing ) 
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Jim has also submitted a schematic of a circuit he demons 
demonstrated at the first meeting, of the Toronto PET Users 
Group. The schematic has been published in the club 
newsletter and Lyman Duggan suggested I pass it on to 
Transactor subscribers. Thame again Jim. -Karl J. 



Poor Man's D/A Converter 

Cheap; good for generating Chamberlin/stvle music. Pr'^cision 
resistors are preferred, but most anything will generate a 
recognirable sound. 

Section B of the diapran suoriorts the CB2 sound effects - so that 
one interface board covers most soimd reni;irements . 



PET 



c 

F- 

H 

J- 



~ "isT- 



U.OOK 
7.O0K 
(OOK 

-AWlAr— 

50K 
-AAA^ — 

JWW- 



lOOK 



1 



I 



7-0 

lr> 



The capacitor provides some reduction of the samnling frequency 
(when generating music) .. tone controls on the ?i amplifier will 
also help, if available. 



The HUH "Petunia" gives a high quality equivalent of this converter. 
Toronto price - about $U0. 



Reference: see BWE, Sentember 1977, lengthy article by Hal Chamber lin 
on computer-generated music. 6^0? programs are given. 
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The "ON.. -GOTO" Statement 



e.g. 100 ON I GOTO 10, 20, 146, 2040 

The above statement, when encountered, will cause program 
execution to branch to the line indicated by the I'th number after 
the GOTO. That is: 

If 1=1 GOTO 10 

If 1=2 GOTO 20 

If 1=3 GOTO 146 

If 1=4.4 GOTO 2040 



I is truncated to an integer value. If I is equal to zero, or attempts 
to select a non-existent line (greater than or equal to 5) , in this 
case the statement after the ON. . .GOTO is executed. As many line 
numbers as will fit on a line can follow an ON... GOTO. Thus the main 
purpose is to eliminate successive IF... GOTO statements and save on 
memory consumption. ^ 

e.g. 200 ON SGN(X)+2 GOTO 40, 50, 310 

In this case, execution will branch to line 40 if the SGN(X) expression 

is less than zero, line 50 if equal to zero and line 310 if equal to 
one. 

When using expressions in the ON... GOTO statement, do not 
allow the final result to be negative. Implement an ABS function into 
the expression, else an ILLEGAL QUANTITY ERROR will result. 

The "ON...GOSUB" Statement 

Identical to the ON... GOTO statement except that a subroutine 
call is executed instead of an absolute GOTO. On return from the 
subroutine, execution continues at the line following the ON...GOSUB. 



A Short Note On Subroutines 



Jumping out of a subroutine can be HAZARDOUS! That is, 
subroutines containing IF...GOTO's or ON...GOTO's can cause an OUT OF 
MEMORY ERROR for this reason: When a program encounters a GOSUB, the 
machine loads the return address into a stack area. The subroutine is 
then executed and let's say 'jumps out' on a GOTO statement within the 
subroutine. Thus the RETURN statement is never executed and the return 
address is not unloaded from the stack. The stack will fill to the 
limit and the error message results. 
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To avoid this problem the ON... GOTO statement can be used 
instead of RETURN. Thus all GOSUB statements directed at that 
particular subroutine must also be replaced with absolute GOTO's. 
By implementing a control variable just prior to the GOTO, the 
return addresses can be placed after the ON... GOTO in the subroutine 
and the hazard is eliminated. For example: 

100 C=1:G0T0 5000 Subroutine address 

110 REM RETURN FROM SUB. 

500 C=2:G0T0 5000 Same subroutine 

510 REM RETURN FROM SUB. 



5000 REM SUBROUTINE 
5010 ^ 
* L 'SUBROUTINE' 

: \ 

5080 

5090 ON C GOTO 110, 510 Instead of RETURN 



^lEWSLETTER ADDRESSES 



1. The "Tranasctor" (subs. $10.00 Cdn.) 

3370 Pliarmacy Avenue 
Agincourt, Ont. 
MIW 2m 



2. PET User Notes (subs. 16.00 U.S.) 

P.O. Box 371 

Montgomeryville, PA 18936 



3. THE PET PAPER 
P.O. Box 45 

Audubon, PA 19407 



4. Cursor 

P.O. Box 550 
' Goleta, Calif. 93017 



5. The PET Gazette 
c/o Len Lindsay 
1929 Northport Drive 
Room 6 

Madison, Wisconsin 5370'4- 




\ 



(subs. S15.OO U.S.) 



A 



(subs. $24. 00 U.S.) 



(Free w/lg. S.A.S.E. U.S. postage) 

\ 
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FAILSAFING 

Recently I have received a number of inquiries on how to 
avoid entering the command mode by hitting "HETURir' after an 
input statement without data entry. I know of three such 
methods : 



The "GET" loop instead 



e.g. 20 GET A^: IF AS=" " THEN 20 

30 PRINT A^ 



The above routine will loop continuously in line 20 until a 
key is depressed. Once entry is made, the routine will print 
the entry be it alphabetic, numeric or graphic character. 
Use of the numeric variable is confusing because even if no 
key has been struck, the value returned is zero. That is: 



20 GET A: IF STRS(A)=" " THEN 20 
30 PRINT A 



w 



ill return immediately. 



2. Forced Input 

If after an INPUT statement you arrange an invalid input to 
the right of the '?', hitting "RETURN" will result in a ? 
REDO FROM START and go back to the INPUT statement. For 
example : 



10 INPUT "A VALUE "^W^ % clclclcl";A 

20 PRINT A 

The cursor is left 2 character spaces beyond the '?'. 
Therefore you must arrange your 'invalid input' such that 
it will be erased by the entry else it will be included 
(be it to the right or left of the entry), and a ?REDO FROM 
START will be returned. 
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The above routine does not work with string variables because 

' S ' will be accepted as an alphabetic input if "RETURN" is hit. 

Therefore a test statement must be added: 



10 INPUT "A CHAR. M'M ^ clclclcl":AS 
15 IP AS = " S " THEN 10 
20 PRINT k% 



3. Opening the Keyboard as a Pile 

By assigning the keyboard a file number using the OPEN 
statement and opening that file for reading, all input statements 
will accept data only as an entry. The following program will 
demonstrate this. 



1 OPEN 1,0,0 (last optional) 



500 PRINT "A VALUE?"; 
510 INPUT #1,AS 
520 PRINT: PRINT AS 
530 END 

The open statement may be placed at the very beginning of 
the program and may even be line 0. Other programming can 
be inserted (between 1 and 500). The preceding words and '? 
must be displayed using a PRINT statement (line 500). The 
double PRINT'S in line 520 are required to get AS to print 
on the next screen line. Otherwise AS will be displayed 
just to the right of the entry. 

If anyone^ should find bugs with this due to not closing 

the file or otherwise, please let me know so that I may pass 

it on. 



62 



HARDWARE FIX 



Most PET Users involved with data files are aware of the problem 
concerning file reads. That is after a block READ the tape motor 
does not stop instantaneiously and tends to roll the tape past 
the beginning of the next block resulting in 'LOST DATA'. 
Realizing this, Richard Leon and Larry Phillips of the Vancouver 
PET Users Group devised a hardware fix. It consists of a resistor, 
a capacitor, a diode and the unused half of the DPDT switch 
connected to the record button of the cassette deck (Eigure I) . 



6?.5v HoTotz, Sourzx^ 



z!s 1/^^^ 



r 
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Operation is relatively simple. During Data writes the record 
switch, is closed and the capacitor charges through the resistor. 
When the block is finished the motor voltage turns off and CI 
discharges into the motor through the diode causing the armature 
to rotate that extra little bit. This allows a larger gap 
between blocks. During reads, the motor still does not stop 
instantaneously but it won't roll far enough for the tape head 
to encounter the next block. (During reads the record switch 
is up and the charging network is disabled) . 

The fix itself poses only one problem. Installation. Many of 
you may not be willing to dismantle your cassette decks to 
access the record button DPDT switch. Therefore I have a second 
idea. Using the same concept as Richard Leon, build an 
'INTEEEACE' for your tape deck and install it between the 6 pin 
molex plug and the printed circuit board edge connector. 
The same circuitry is used with one major difference. The enable/ 
disable switch must be simulated such that identical operation 
is obtained without using a mechanical switch. Therefore the 
swtich needs control logic such that it enables the circuit 
during data writes and disables it during reads. Ideally, this 
could be done with logic gates, however most TTL logic chips 
require +15 and -15 volt supplies. There is "logic" available 
on the PCB cardedge. Here are the characteristics: 



PIN 


OPERATION 


on PCB 
nardedse 


NONE 


READ 


WRITE 


READ 


Low 


Active 


Active 


WRITE 


High 


High 


Active 


SENSE 


High 


Low 


Low 


MOTOR 


Open 
(floating) 


6.5v 


6.5v 
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Using these lines a control must be designed to either 
open tiie switch during reads or close it during writes. This 
is where I stand right now. The 'write' line seems to be the 
most likely candidate for the control input since 'write' is 
held high constantly and goes low only during writes. Therefore 
it could be used to hold open a N.C. (normally closed) switch. 
However, when data is passed to the tape, 'write' is active 
(high and low) which means the switch will be on, off or 
unstable anyways. 

If this signal could be 'filtered' and seen by the 
switch input as low during writes the switch would stay closed 
and the design is complete. Here's what I have so far. Will 
it work? 




X 



* N.C. integrated switch. Part number anyone? 
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Richvale Telecommunications* "'^^''^ :3ayview Ave; Richmond 
Hill, Ontario L4C 3NG 884-4165 are ple-i.sed to announce 
"Hampet" : A:.iorse and .ITTY interface. 

The "Hampet" is a *^orse and riTTY( Baudot ) interface.^^ou simply 
olug the "Hampet" into the Pet, and your ready to display, 
trans.^it and receive morse and RTTY at rates upto lOOWPiM, 
The interface will also send random words and characters, 
displayed and v/ith audio from a built in side tone oscillator 
and speaker. In addition the "Hampet" can re-transmit 4-00 
characters fro a memory for "hr-g" transmissions , 
The "Hampet" is sold ./ired and tested, and comes in an 
attractive , blue and sand, si oping front ,aluiQinum case, with 
on-off, volume control , frequency control, PLL control, tune 
LED, on LSD, head phone muting jack and four RCA phone jaoks. 
The "liampet" is capablo of perfect copy with an "S4" signal. 
The "Hampet" retails for 189 <*ojl.irG with i.iiiiediate delivery. 

Dealer enquiries are invited. 



ADDRESSING 

Every memory location in your PET contains one byte of 
information. In order for PET to get at these bytes it must 
have a means of accessing them. Therefore each and every 
memory location has its own individual address; all 65536 of 
them. The microprocessor places these addresses on the address 
buss which immediately enables one memory location to the data 
buss. Bearing that in mind, one of two operations can happen 
now. PET can either place a byte into that location (i.e. POKE) 
or "look" at what's already there (i.e. PEEK). When performing 
the first operation the microprocessor places a byte on the data 
buss and transfers it along the buss and into the enabled 
memory location. 

In the second operation, the information or byte in the 
enabled location is transferred onto the data buss and along 
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the data buss back to the microprocessor. This location is not 
"emptied" but rather only a duplicate or copy of the information 
is transferred. Once either of these operations is complete 
the microprocessor then places a new address on the address buss 
and another location is enabled. This process repeats thousands 
of times every second, however these operations aren't possible 
on all memory locations, but I'll explain this later. 

The microprocessor has control of 99-9% of the addresses 
being placed on the address buss. That extra 0.1% control was 
left for the user and can be obtained through use of the PEEK, 
POKE and SYS commands. When executing these commands the user 
must choose an address. This address will be one of the 65,556 
memory locations (i.e. to 65555). This is where the memory 
map enters the picture. The memory map may well be your most 
powerful tool for choosing addresses. If you look at the map 
you'll see that all of the addresses are listed in ascending 
order down the left hand side; first in hexadecimal and then in 
decimal. (See section on hexadecimal and binary for explanation 
of this conversion) the decimal address is the one you use when 
executing the above 3 BASIC commands. To the right are the 
descriptions of what you can expect to find at the corresponding 
addresses. If we then PEEK these addresses we are returned 
the actual bytes that are in those particular memory locations. 
For example, let's say during a program we hit the STOP key and 
got: 

BREAK IN 600 

HEADY. 



PET gets '600' from a storage register at addresses 158 and 139- 
We could also PEEK these locations and find that 600 is indeed 
stored in 158, 159. However it is not stored as a six, a zero 
and a zero. Instead it is stored as the decimal conversion of 
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the line numbers representation in hexadecimal. All information 
of this type is returned in this manner. Now that we know what 
the memory map v;ill help us do let's cover some of the rules. 

RAM and ROM 

We all go through life with basically 3 types of memory: 

1. MEMORY PRESENT: This memory we use to remember things like 
what street we're driving on or our present location. 

2. MEMORY PERMANENT: Things like our names and fire is hot we 
never forget. 

3. MEMORY PAST: Recent occurrences and not so recent such as 
things we did 10 or 12 years ago. 

In the PET there are only two : 

1. RAM Random Access Memory: This type of storage is used for 
our programs and things that change such as the clock and 
previous line number. 

2. ROM Read Only Memory: This is PET's permanent memory. In 
ROM are the addition routines, clock updating routines and 
loading routines to name a few. These functions would have 
to programmed into PET on each power up if they weren't 
permanently 'burnt in'. 

The third type, memory past, is instantly 'forgotten' on 
power down. The only way to recall it is to first save it on 
tape, disc, etc. 

Recall earlier I mentioned that POKE and PEEK aren' t 
possible on all memory locations for several reasons: 

A. Not all PET memory locations actually exist. On the memory 
map, locations 1024 to 32767 is the 'available RAM including 
expansion' . If you have a PET with 8K, simple arithmetic 
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shows th.at of tlie available R4M space is non-existent. 
If you decide to expand your system, PET will 'fit' the 
added RA.M into this area. However POKing or PEEKing this 
space (i.e. 8192 to 32757) will return invalid results on 
8K PETs. 

B. The same concept applies to locations 36864- to 4-9151 • This 
is the available ROM expansion area. 

C. Next on the memory map is the Microsoft MSIC area; loca- 
tions 49152 to 57^63. This is the memory that recognizes 
and performs your commands. Changing the contents of these 
locations is impossible because it is Read Only Memory and 
is actually 'burnt in' at the factory. Therefore, POKing 
these locations will simply do nothing. Also, Microsoft 
requested that these locations return zeros if PEEKed (for 
copyright reasons). 

With these 3 rules and your memory map you are now equipped 
to explore capabilities of your PET that you probably never 
thought possible. Before we try some examples let's go into one 
more important occurrence that may have had you scratching your 
head ever since that first power up. 

MISSING MEMORY? 

When you turn on your 8E: (where K = 1024) PET, the first 
thing it tells you is 7167 BYTES EREE; a reduction of almost 12%. 

Q. Where did the missing 1024 bytes go? 

A. It's still there. . .right below the available RAM space 

(notice it starts at location 1024). PET uses this memory 
to do some very useful operations for you which you can 
find and access by looking them up on the memory map. 

Q. But why not do this in ROM space? 

A. PET needs RAM type memory to store this data because it is 

always changing. The information in this "low" end of memory 
is actually produced by routines found in ROM. 
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Take for example tJae built-in clock. The clock or time 
is stored in locations 512, 513 and 51^ of RAM. However the 
data comes from a routine found in ROM at location F736y^^^ . 
The time is of course always changing, therefore it must be 
stored in RAM. But because it is in RAM, you may also change 
it; either by setting TI or Til or you can POKE the above 3 
locations. Try it. 

Now let's try some examples. 

1. Location 226 (00E2 in HEX) holds the position 
of the cursor on the line. Try these: 

POKE 226,20: ? "PRINTS AT NEXT SPACE 
?" 123456789" ; : ?PEEK(226) 

2. Location 245 (00F5 in HEX) stores the line 
the cursor is presently on (0 to 24). POKing 
this location will move the cursor to the 
specified line after a display execution. 
Eor example try: 

?"A": POKE 245,10: ?"B" : ?"C" 

POKE 245,21-1: ?"cu": POKE 226,20 :? "PRINTS HERE" 

The above will move the cursor to line 20 (21-1), 
print a 'cursor up' on line 21 and display your 
message starting at column 21, line 20. 

While experimenting with out-of-range values 
I obtained some rather interesting results. Try 
POKing location 245 with a number greater than 24, 
say 40 or 60, and hit the cursor up/down key a 
number of times. Also, experiment with unusual 
numbers in location 226 such as: 

POKE 226,100: ?"125456789" 
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In the command mode (i.e. when you're operating PET 
directly all typed keys go first into the keyboard buffer 
and then into screen memory or VIDEO EAM. However you may 
also load the buffer under program control by POKing the 
ASCII representations of the characters into sequential loca- 
tions of the buffer. You must also increment by 1 the contents 
of 525 each time another character is POKed in, but remember — 
not past 9- Page 6 of "Transactor" #2 contains a table of all 
the values for characters and commands. "Transactor" #1, 
page 12 lists some extras such as cursor controls and the 
EETUEN key (13). Try the following endless loop. 1^5 is a 
cursor up 

POKE 52 5 , ^ : POKE527 , 145 : POKE 528 , 145 : POKE529 , 145 : POKE530 , 1 5 



Some other interesting items are: 



P0KE59409,52 - Blanks screen 
P02LE59409 , 61 - Screen back on 
P0KE59411,53 - Turns cassette motor on 
P0KE59411,61 - Turns motor off 
P0KE59468,14 - Lower case mode 
P0KE59468,12 - Graphics mode 
P0KE537,156 - Disables STOP key and clock 



If anyone knows of or discovers any peculiarities by 
"POKing" around, please send them in. When I receive enough of 
them a handy dandy 'PETRIX' card will be included in a future 
"Transactor" bulletin. 



THE system GOrmND 

On the last three pages of the memory map are listings 
of the subroutines stored in PET ROM that perform your commands 
and programs. These subroutines are stored as machine language. 
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When a SYS command is executed PET jumps to the specified 
decimal address and continues from there in machine language. 
Take for example the Machine Language Monitor program. This 
is a machine language program and is initialized by a SYS 
command stored as a BASIC program line. LOAD and RUN your 
M.L.M. then type 'X' and hit 'EETUEN' to exit to BASIC. Now 
list. What you'll see is: 

10 SYS (1039) 

Location 1039 is the address to which PET will ^ump and 
also the address at which the first maching language instruction 
is stored. (A listing of all of the M.L.M. instructions is in 
"Transactor" #5, pages 5A and 5B) . When this BASIC line is 
executed PET operates in machine code beginning with address 1039. 

The SYS command does not require brackets around the 
specified address. 

Since PET has its subroutines stored in machine language 
you can use the SYS command to access and execute them. However 
you may come up with some rather peculiar if not disastrous 
results. When jumping into EOM you may find yourself in the 
middle of a subroutine or at the beginning of a subroutine belonging 
to a major function routine. Often PET will 'hang-up' or crash 
and you will be forced to power down to resume normal operation. 
To demonstrate jumping into the middle of a routine, try the 
following examples: 

1. SYS 52764 (GEIC) 

2. SYS62498 CF422) 

3. P0KE523,1:SYS62498 (I'422) 

4. SYS62463 Cl'3EI') 

5. SYS64824 (FD48) 
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The numbers on tlie right ax's the addresses cff the above sub- 
routines in hexade :- iinal . Compare them to the memory map, 
especially for e.g. Also take a look at 525- 

The following are examples of valid locations which you 
can use with the 3YS cormmand to access useful routines, however 
these routines are already accessible through BASIC. 

1. SYS62651 (^346) 

2. SYG62278 (1^4BB) 
5. SYS6313^ (F69£) 

Example #5 will perform a 'SAVE' but will not produce a 
tape header. 

Experiment with your memory map. Hex to decimal 
conversions can be obtained using the jaethod following this 
article . 

SUmARY 

This has been merely 'a scratch on the surface' of the 
extremely complex inner workings of PET. Do not be afraid to 
experiment with the POKE and SYS commands. There is absolutely 
nothing you can do to harm PET from the keyboard that turning 
power off and on won't fix. Also do some PEEKing around 
especially in low end memory. One good way is to write a small 
monitor program: 

l;,:- ? " c " PEEK( 516 ) : GOTO 10 

The above will monitor the 'SHIFT' key. Try running it 
and depress 'SlilFT'. Compare the map. 
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When POKing or SYSing to random addresses, remember the 
address you choose. Often PET will do something which may erase 
the address from the screen (e.g. SYS64S40) . 

The addresses that have been listed here are only a few of 
many that are already known and only a minute percentage of the 
ones not known. Probe around and send in any discoveries, useful, 
peculiar or otherwise. They will be collected together and 
published in a future "Transactor" bulletin. 
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BINARY to HEXADECIMAL to DECIMAL 



We all know how to count in base 10 or decimal. We start 
at zero and count one ... two ... three and so on to nine. Once nine 
is reached we've run out of numbers, that is single digit numbers. 
So in order to continue we must now make use of two digits; we 
place a "1" in the 10' s c©lumn and reset the I's column back to 
zero. Continuing from here, sooner or later we would reach 99- 
Adding "1" would generate a carry into the 10' s column and this 
in turn will generate a carry into the 100 's columns to zeros. 

This explanation of base 10 was given simply to demonstrate 
how we actually do our counting that we ^just do naturally. 
Binary is much simpler than decimal because there are only two 
numbers to worry about; zero (0) and one (l). 

Base 2 number set Base 10 number set 

0, 1 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 

With a little practise you'll see that counting in Binary 
is just as easy as counting in decimal. 

Binary is base 2 ('Bi') just as decimal is base 10 ('Deci') 
gust as hexadecimal is base 16 ('Hexadeci') but I'll talk about 
the "HEX" numbering system later. 

In base 10 we are 'allowed' to count up to 9 before carrying 
the "1" into the next column. Generally in any base we count 
to one less than the base # and generate a carry into the next 
column. In base 2 we count up to "1" and do our carry. Just 
as we cannot fit a "10" base ten into one column we cannot fit 
a "2" base two into one column. The base # is most important. 
Let's illustrate by comparison. 
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NUMBER REPRESENTATION IN: 


NUMBER 


nHnri c. 


nn %nvt x.\J 





0000 


0000 


1 


0001 


0001 


2 


0010 


0002 


5 


0011 


0003 




0100 


000^ 


5 


0101 


0005 


D 


0110 


0006 


7 


0111 


0007 


8 


1000 


0008 


9 


1001 


0009 


10 


1010 


0010 


11 


1011 


0011 



Notice how in binary, on every multiple of 2 a carry is 
generated wliereas in decimal the carry is generated upon 
multiples of 10. 



Let's now define the columns of the two number bases. In 
base 10 we have the I's column, 10 's column, 100 's column and 
so on. Each column is the previous column times ten ; 1 = 0.1 x 
10, 10 = 1 X 10, 100 = 10 X 10 and so on. We can also represent 
these using exponents; 1 = lo", 10 = 10*, 100 = 10* (10 'squared'), 
1000 = 10^(10 'cubed'), and so on. In base two each column is 
the previous column times two ; we have the I's column, 2's 
column, 4's column, 8's, 16's, 32's and on. Using exponent 
representation, 1=2^, 2=2 ,4=2 ,8=2 ,16 =2 , 
52 = 2* , and so on. Now let's represent some numbers of the 
two bases using their column breakdown: 
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2b*»IO" 0002 - O-IOOO + 0»100 + 0«10 + 2«1 
2lto«*l- 0010 - 0»8 + 0«4 + 1"2 + 0»1 

7,0 - 0007 - 0«1000 + 0«100 + 0«10 + 7»1 
Ix " 0111 - 0»8 + 1"4 + 1«2 + 1»1 
12,0 - 0012 - O-IOOO + 0"100 + 1«10 + 2"1 
12i - 1100 - 1«8 + l^A + 0*2 + O^l 

The same three examples using exponent representation will be: 



2 




0002 


- 0«10* 


+ 


0«10* 


+ 


0«10^ 


+ 2*10* 


2 




0010 


- 0«2' 


+ 


0«'2* 




1-2' 


+ 0«2*' 


7 




0007 


- 0«10* 


+ 


0*10* 




0*10^ 


+ 7*10*' 


7 




0111 


- 0''2* 


+ 


1*2* 


+ 


1*2^ 




+ 1*2 


12 




0012 


- 0««10* 


+ 


o«io' 


+ 


UIO* 


+ 2>«10* 


12 




1100 


= 1«2* 


+ 


1*2* 




0»2^ 


+ 0»2* 






2** - 


1 








l' - 


16 






2' - 


2 








2» » 


32 






2* - 


4 








2* - 


64 






1* - 


8 








2' - 


128 



Use this table as a reference for the following exercises. 
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Try the following example on representing decimal numbers in binary by placing 
a 1 or a in the correct column position. 

alio 

NUMBER 2 2 2 2 

4 = _ 

12 = _ 

13 = _ 

1^ = _ 

15 = _ _ _ _ 

What must be done to represent the number 16 in binary. If you said " A 
fifth digit must be used at the leftmost position ", then you're absolutely 
right. Except for one thing: digit is a word we use in decimal. In binary 
we use the word BIT derived from Binary diglT. By implementing a fifth bit 
it is now possible to represent numbers greater than 16 but only up to 31. Once 
past 31, a sixth bit position must be used. Continue with the exercise. Notice 
the leftmost column values have changed. 

c u 3 2 1 

NUMBER 2* 2 2 2 2 2 

16 = _ _ _ _ _ _ 

21 = ______ 

28 = ______ 

32 = ______ 

51 = _ 

62 = _ _ _ _ 

63 = 
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What would be the highest poslble number you could represent using only 

6 bits? 

1 6 5 4 9 t I O 

22222222 
• ° 1 i i 1 i i 

7 bits? 

'= iiiiiii 

8bits? 

?=i 1 i 1 I I 1 I 

If your answers were 63, 127 and 255, you're correct. Notice how these 
values are 1 less than the value of the next bit position to the left. ( 2® =256) 

The BYTE 

Every memory location in PET is actually one byte. A byte 
consists of 8 bits. In computer electronics the binary number 
system is used. This way we can use a high voltage to represent 
a "1" and a low. voltage to represent a "0". Can you imagine the 
circuitry that would be required to operate a computer in decimal 
or base 10? Ten unique voltages would have to be used to 
represent each of the ten digits. Then a separate computer would 
probably be required to distingusih between them all. By using 
binary PET must only distinguish between two voltages. Since a 
5 volt supply is used for the logic circuitry, anything over 2.^ 
volts is considered high or a "1" and anything under is considered 
low or a "0". These voltages are typically 4.8 volts and 0.2 volts, 
respectively. Each bit of every byte in memory holds one of these 
voltages. With 8 bits in each byte, 256 combinations can be 
obtained (0-255) as you can see from the above exercise. If you 
look at the table on page 6, "Transactor #2, you'll see that all 
the keys can be encoded into one of these combinations. PET 
uses some combinations to represent the commands so that they 
only take up one byte in memory. PET also uses some of these 
combinations twice to represent graphics as you'll see by comparing 

the table to page 12 of "Transactor" #1. I'ET ROn -routines 
distinguish between comrn. juls and |- rcq.hIoG . 
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Try POKing a RAM location, say 6000, with a number greater 
than 255, say 256. A 7ILLEGAL QUANTITY ERROR will be returned 
because more than 8 bits are required to represent 256 in binary. 

2 22222222 
256 = 100000000 

Essentially, 256 won't 'fit' into a single byte. 

Try PEEKing a non-existent memory location, say 10,000: 

?PEEK( 10000) 

A 255 will be returned. A unconnected or open line is considered 
high by PET. Since the byte is not really there, the data buss 
lines will be open and read as high or all I's by the micro- 
processor. 

Hexadecimal or "IIEX" 

Hexadecimal means base 16. This means we can count up to 
15 before generating a carry. However we can't use the numbers 
10, 11, 12, 13, 14 axid 15; these take up two columns. We need 
to represent these numbers using a single character. Therefore 
we use the first 6 letters of the alphabet. 

Hexadecimal number set 

0, 1, 2, 5, 4, 5, 6, 7, 8, 9, A, B, 0, D, E, F 

A, 4 = 10„ D,* = 15,0 

B, ^ = 11„ E., = 14»o 
,4, = 12 E ij, = 15 
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When counting in HEX we generate our carry upon 16: 

l^.c = E,, 
4 \ 

15,0 = 

16,. = 10 „ 

Recall in binary, 4 bits will yield a maximum of 15 

Now since a byte has 8 bits, we can split it up into two fields 
of our and then represent it as two hexadecimal characters. 

= 0000 0100 i 
12 ,0 = 0000 1100 ^ 
255.10 = 1111 1111 z 



HEX Addresses 

We won't discuss how a byte recognizes its own address; this 
is buried deep inside the integrated electronics of the IC chips. 
The address buss consists of 16 lines, through I5. PET needs 
this many lines to address all 65,536 bytes. Because location 
(zero) is included, the maximum address obtainable is 65,535 in 
decimal. When this location is addressed, all 16 lines of the 
address buss will have ahigh voltage. In other words logic 1. 

2- 2" 2" 2" 2" 2'' 2^ 2' 2" 2^ 2^^ 2' 2' 2" 2^ 
65,555 =.1111111111111111 

= 2\ 2\ 2\ i\ 2\ 2% 2% 2V 2% 2% 2% 2% 2% 2% 2 + 2^ 
On PET = 2 t 15 + 2 t 14+. . . 2 t Try it. 



04 


16 


00 




EE 
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If we now split tlie 16 columns into four fields of four we can 
also represent each field using a hexadecimal character thus 
converting decimal to hexadecimal as Jim has on the left of the 
memory map. 

65,535.0 = ^j^^^-^^ iii^ii-^^ 

Recall e.g. #1 of the SYS command (pg.8) 

5276^,0 = 1100 1110 0001 1100^^, 
= GEIG ,^ 

When operating PET, the decimal addresses are used for PEEK, 
POKE and SYS. Therefore you probably won't find yourself 
converting from decimal to HEX when using BASIC. However you 
will need to convert from HEX to decimal when you want to SYS 
to those ROM subroutines. 

CElG^t = 1100 1110 0001 1100 

= 2" + 2" + 2" + 2'° +2" +2*^ +2^+2' 

ON PET = 2tl5 + 2tl4 + 2tll + 2tl0 + 2t9 + 2f4 + 2t3 + 2t2 

- 52764,. 

F422 ,^ = 1111 0100 0010 0010 

= 2'^ +2" + 2'^ + 2'^ + 2'° + 2^ + 2' 
On PET =2tl5+2tl4+2tl5+2tl2+2flO+2t5+2tl 

= 62498,0 

Try verifying some of the other examples using the same 
conversion method. With a little practice HEX conversions will be 
as easy as counting to 'F' . 
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COMMERCIAL CONFUSION, Jim Butterfield 

or, Toronto 
"l-Jhere'd the penny go?" 

PET is certainly the greatest business tool since electric pencil 
sharpeners, and printers and floppy disks will herald an explosion 
of commercial applications. 

Basic seems like the ideal language for a small business system - but 
it has a hidden "gotcha" that will give you problems if you don't 
know how to handle it. I call it, "the missing pennies problem", and 
it's common to almost all Basic implementations. 

Crank up your PET and try this: PRINT 2.23 - 2.18 — it's a simple 
business calculation and the answer has gotta be a nickel, right? So 
how come PET says .0499999998? 

Think of the mess this could cause if you're printing out neat columns 
of dollar-and-cent results. Think of the problems if you arrange to 
print the first two places behind the decimal point: you'll print .04 
instead of .051 Think of what the auditor will say when he finds that 
the totals don't add up correctly I 

In a moment we'll discuss how to get rid of this problem. First, though, 
let ' s see how it happens • 

PET holds numbers in floating binary. That means certain fractions don't 
work out evenly. Just as, in decimal, one third works out to .333333..., 
an endless number, PET sees fractions like .10 or .68 as endless repeating 
fractions - in binary. To fit the fraction in memory, it must trim it. 
Thus, many fractions such as .37 are adjusted slightly before storage. 

Try this program: it will tell you how numbers are stored inside PET: 

100 INPUT"AMOUNT";A:B=INT(A) :C=A-B:?A;"=";B;" "; 

110 FORJ=1T010:C=C*10:D=INT(C) :C=C-D:?D; :IFC>0 THEN NEXTJ 

120 ?:GOT0100 

If you try entering numbers in our above example, 2.23 and 2.18, you'll 
see how PET stores them - and why the problems happen. 

How to fix the problem. Easy. Change all nvimbers to pennies - which 
eliminates fractions - and your troubles disappear. For example:' 

340 INPUT"AM0UNT";A : A=INT (A*100 +.5) converts A to pennies; 



760 PRINT A/100 outputs pennies in dollars-and-cents . 
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Micro Magazine 



Published monthly, MICRO is the only mag. devoted entirely to 
6502 based systems. It covers software and hardware on PET, KIM-1, 
APPLE, AIM, SITI and virtually anything to do with the MOS 6502. MICRO 
has run out of back issues but they are offering "The Best of MICRO 
Volume 1", which covers issues 1 through 6. Cost is S6.00 plus ^1.00 
postage and handling, payable in US Punds- Subscriptions are also 
available; $15.00 CUS) for 12 issues. Send your name and address, etc., 
to: 

MICRO Magazine 

P.O.Box 3, 

SO. CHELMSPORD, MA 

0182^. 

Specify Best of MICRO and/or subscription and at which issue you wish 
your subscription to star':. Highly recommended. 



T I S Workbooks 



Total Information Services now has 5 workbooks relating to 
the PET. All are excellent, particularly PET Cassette on data file 
writing. 



Getting Started With Your PET - S5.OO* 

PET String and Array Handling - S5.OO* 

PET Graphics - $6.00* 

PET Cassette - $6.00* 

PET Miscellaneous - $5.00* 



* payable in US Punds . Write To: 



Total Information Sei?vices 
P.O.Box 921, 

LOS ALAMOS, MM 
87544 
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t.Ciy DHTfl3042.. 426.. 18 
GIB DHTH1521.. 167.. 17 
620 1;'HTh>-'61.. 46.. 16 
620 DH TH-IEIG.. 0.. 6 
640 DhTR-1 

6 5 K E H D : < .. ' i' .. : 1 F I <;^ ^*:I..Oc;;:i: iCi I ri6^:i0 

660 T=V*100:PRINT"ON FIRST X.; "TAX IS "J V 

670 :::,*100 ; J.-4--NF'<J > :PRINT''U RNQ J/100.; "TAX flT";P;"?< IS 1/10© 

680 j = I-i r : 1;=:? : F=^l : l:t=^^"TuTRL. FED INCM TFiX" ; GOSUB2150 

€■90 S= I ; ; I ^FHS < FHF < D k > ;> : [::■ '■. 11 > == I 

e9'5 1 F 1: >0 T HEr JF— -1 . I * " D I V TAX CRED IT": GOSUB2150 

?00 I =<: •:. C > ; 1 1---^ " +BhS I C F EDERHL TF1K+ " : 1 3OSLIB2200 ; PR INT. D < 6 > = I 

P10 I F I<:iE4i.;)U Tn740 

,•'20 I. F .1: <.ij3E2TI-iENI==3E4 : GOTO740 

,■^■30 P^^^^9 ■ p:=FNP': f } 

740 i:>4 : l: •:. C: :;• =0 ; I- =1 : I ^-^^ " i..3l:;:r-.IERAL T AX REDUCT I ON " ; ij Oh.!. .It; 2:1 '50 
7S0 .i;*="REDUC HON FOR CHILDREN" : Gu£UB2100 

: i-:-0 •:y^^^5E4 : I ^^^^FNS C C C :• ; C < C :' =6 : i:>-3 : F=--l : I *== " TOTAL REDUC I ONS " : GOSUB2150 

GOblie.::.:! to i 1:-" H-+^FEDERAL TAX++" : GOSUB2200 ; D-:: ?;:•== I :D<;8;:' = I 
7S0 t;:=4 ; I*="FOREIQN TAX PAID" : GOSUB2i00 ; IFI=0GOTu850 

790 W= I : I *= " FORGN I NCOME " : QOSUB2100 : K= I : X-- < D < 3 '> -D C 10 > > /100 : V= (. D < 7 > +D 11 .• ■ , 
800 S=INTa=::/X=+'V> ; PRINTKXieO.: "/".; Xi V.; " = ".; S/lOO 

SIO FJ^- " — DEDOC 1 : " : I=FrJS'::W> : 005082200 : D 8 ^D t 8 ;:■ - 1 
L;2ti PR. [NT". . ANOTHER COUNT R'r'. . . " : GOTO780 

850 I - D ( 8 ) : I * = " FEDERAL TAX PRV ABLE " ; PR I NT : GOSUB220U : PR I NT 

,0 I '^=44 : I ~FNP >: D ( 6 > > ; 1 3— " BAS 1 C ONTAR I O TAX " ; GOSUB2200 : D 9 :> = I 
iOOG KEliF,-;; I FXO-IGOTOIOOO 
1010 PRINT"=«ONTflRIO PROPERTY TAX==" 

■!..0;.:'i::i I 1 1 J T Al... RENT l--'HVriEN TS " ; GUSUB2100 : I F I ^^^0GOTO1040 

1030 P:^=20: i^FNPCi; : IT="*20"i OF RENT " : GU8UB2200 

1M40 C-1:CCC) = I :F=^1; I:f-"PROPERTV TAXES&COLLQ RES" : GOSUB2100 

,].~i30 I -CCC> P ="10 : X~FNF< I > : I:f-"*OCCUPANCV COST*" ; GOSUB2200 ; PR 1 NT 

±k}t>0 1 8 E .-i: : l^^^FNS':. i > : 1$^" ADD " : GOS1JB2200 : CCC = I : I^X : I;:F=" TOr " ; GOSUB2150 

1070 TT^=^"PKOI T3-' ! 'i' IT-iX CREDIT" : I-C':.C:' : G030B2200 

:I080 F':^=;:l : I-FNP';;D'::12> > ; I*""SALES TAX CREDI T" ; GiJSUB2150 

1090 7F="PENSI0NER CREDIT " GuSuBSlOO : l=Ca::> : 1*-="T0TAL CREDITS" : GOSUB2200 
1;;!.O0 |-*-=2 : I^FfJP^.DvS;:' > : "LESS " i-- =^-l , GOSi...lB2150 

1.110 GOSOB2300 : 8~5E4 : I=FNS'- I > : I*="ONThP O:) P S .fc F' CREDITS" : GOSUB2200 

1120 C':;C::':"I : I$="POLIT ICAL TAX CREDIT" :GOSUB2100 

1130 I- -C CO:: 11-^^"' I- TOTAL ONT TAX CRED ITS " : D ';;i3 I • GOSUB2200 

.1.140 Fi:^^.4 : GO::::.uB2O00 : l^^T:":. 8.:' : 1 1= " FEDERl-lL 1 NX PhVHBLE" : GUSUB2200 

ilSO 1 1^^^ " rOL 1 1 .• '8l.iS,-'EMI='LiiT CRED I T " : Gi :iSUB2100 : X=D < 8 > -hD < 9 > •■- 1 

IJ i: I :! IT- "ON TAR 10 TAX PAVABLE" : I -DC 9;' : GOSOB2200 

11 70 1 ::|--^ " TOTAL PAVABLE " : I : GQSIJB2200 : PR I fil 

■1100 C^=l ;C':;C>^^=0 F^-:l, : IT-="TAX DE[::'OCTED PER SLIPS" : GOSUB2100 

1190 I T-= " ONTF-lR 1 TRX CRED I TS " : I =-0 < 13 > : GOSOB2150 

:1 200 1 ::F^^ " uVERF-'AVMEN T SX I NSTRLMEN T S " : GOSUB2100 

1210 I ^^^c CO: :i: :^F^^^ " ro 101... cred i ts++ " : GOSUB2200 : PR I N T 

1220 I:*^^^"BRLHNCE DUE" : I=X-I : IF K0THEN I REFUND : " : I^ABSC I 
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±2 <Q G1JSUB2200 : F'R I NT 
1399 END 

2068 PR I NT : PR I NT " ===PmGE " ; : Gi:iTi:i2020 

201.0 PR I NT : PR I NT " =-=SC:HEDULE " > 

2020 PRINTPl.; "OF RETURN::^==^^:=:= ": RETURN 

.:::100 I ^^0 ; QE rZ* ; PR I NT I " ? " 

2110 Vf=:" " : PR I NT ".ft". 

2120 GETZ* : I FZ:^^= " "GUTO2120 

2120 Z^^=R:.;C Z* ; I FZ>47RNDZ<58Q0TO2i45 

i i ■ ZT-^^ " RNC'S'*-: " " GuTiJ2145 

2136 IFZ:!:^^". "G0Tn2145 

2139 IF<Z==i570RZ=20;:'RNDV*<>""THENVf=^=LEFT*'.:v*.. LEN<V*> -i;;' : PRINT" "; :G0T02147 

2140 IFZt-=" + "THEHPRINT"".; : I = I + VRL < V* > : FOR J=1T0LEN < V* > : PR I NT" : NEXT : GOTHZl 1 m 
2142 I FZ=i3RND I =0THENPR I NT " " 

;;i:143 I F' ,:;:::^:^:13 i HEr-J ]; =FN I ■:: :i: +VRL < V* > > : PR I NT : GOTO2150 

2144 QuTO2i20 

,;-i'45 V:f==V*-i-Z:i|; 

21.4." PRINTZ*.; : GOTO2120 

2 1 5 C'. C € '. C + 1 + F 

2200 PR I NT I T.. ; l'h=lE8 : FOR J=LEN < I $ > T025 : PR I NT " " .; : NEKTJ ; J^flBS I > : Z* = " " : Z=0 

2210 D= I NT ■:: J/M > : J=J-D*M : IFD=ZTHENPRI NT " : GOTO2230 

2220 Z*== " .. " .;,>:-10 ; PR I NTCHR* C D+48 ;:• 

2230 I'U:4'1Z10 : I FM=^aE4THENPR I NTZ*.; 

2240 IFrT=10THENPRINT". ".; : 2=M 

.:-:25;4 i f i'i> = lGOTO22i0 

2260 1 !■■ I f!' -irjMPR 1 NT " OR " 

;^:2T^'0 PF:INT : RETURN 

■ ■ j:00 B=^0 : I =F r JB CC <C> ) : C C j = I : RETL.IRN 
RERDV. 



TAX ONTARIO 1978 

Last montlis listing of the Income Tax program requires a 
few revisions due to the fact that the Centronics 779 does not 
recognize PET graphics. The corrections are as follows: 

111 INPUT" cdlNSTEUCTI 

112 PRINT" cdONTAEIO IN 

113 PRINT" cdFOLLOW YOUR 

115 PRINT" cdPOR 'NIL' ITEMS 

116 PRINT" cdFOR 'MULTIPLE' ITEMS 

310 PRINT" ! EXEMPTIONS 

470 IP I 23IE3 THEN PRINT"! NO TAX PAYABLE 

2110 Y5="" :PRINT"&@cl" ; 

2139 IP (Z=157 OR Z=20) AND Y^ "" THEN YS=LEPT$(Y$, 
LEN(Y^)-I) : PRINT" clM" ; :G0T02147 

2140 IP ZS="+" THEN PRINT"cd" ; : I=I+VAL(Y^) :P0RJ=1T0 
LEN(YS) : PRINT" cl" ; :NEX 

2142 IP Z=13 AND 1=0 THEN PRINT"cu"; 

cd-Cursor Down, !-RVS On, &@-Shifted '&' , cl-Cursor Left, 
]z^-Blank or Space, cu-Cursor Up. 

8 8 



When operating in machine language, PET is at top efficiency. Machine 
code programs can execute at speeds 10 to 1000 times that of the equivalent 
BASIC implementation. Also, depending on the operation, they may consume 
as much as 10 times less memory. The reason BASIC is so "slow" is that BASIC 
must first be interpreted into machine code such that the Microprocessor can 
handle it. In fact, about 90% of the total execution time is spent interpreting 
while only about 10% of the time is spent on the actual operation. In machine 
code programs the BASIC interpreter is bjrpassed hence the greatly increased 
speed of processing. This speed is realized most in programs where a lot of 
tests or comparisons are made. MicroChess*^ is a prime example. At level 
8 (playing at it's best) the machine can still spend as much as 10 minutes 
on a move in some situations. Imagine a chess program coded in BASIC I 

A brief explanation of machine language would be highly impracticle 
because of the variations and possibilities of the concepts. Undoubtedly a 
lot of imprtant information would be overlooked. However I have here an 
exerpt from PET User Notes, Issue #5, written by Jim Butterfield: 



" A Little Exercise in PET Machine Language 
Jim Butterfield Toronto, Canada 

Clear the PET completely (NEW:CLR) and enter the 
following three lines of BASIC... Do not insert extra 
spaces! 

100 SYSdOSO) 
110 GOTOlOO 

120 XXXXXXXXXXXXXXXXXXXXXXXXX 

The last line should not be less than 15 X's, and pre-^ x 'y y 
ferably a few more, say 25. You may list this program 
but do not try to run yet. 

Now you have some POKEing to do, and unfortunately 
you can't have a program help you. First, make sure 
that the above lines are OK by ?PEEK(1050); this should 
return an 88 (X character). Now starting with POKEIOSO 
,32... input the following values: 

Starting at 1050: 32 228 255 208 1 96 162 157 
Starting at 1060: 128 157 129 157 130 157 131 
Starting at 1070: 202 208 241 96 

Double-check the above values by listing them with: 

FOR J=1050 TO 1070 STEP 10:FOR K=0 TO 9: ?PEEK( J+K) ; : 
NEXTK:?:NEXTJ 

It is vital that these numbers be correct - one 
mistake and your system will crash. Behind the 96 you 
should see some leftover X's (88 's). 
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Now tjrpe RUN. Try tapping a few keys and note how 
the screen changes. Stop the program with the STOP key. 

What's it all about? We've written a program in 
machine language, the fundamental 6502 language of the 
PET. In working with the inner fabric of the machine we 
find we get: (i) compactness - we've fitted a whole 
program within one BASIC line: (ii) speed - no BASIC 
program could fill the screen that fast. We lose, 
however, in the need for preciseness; one mistake and 
the system crashes, and you have to switch off and on 
again. We also lose flexibility - adding an instruction 
isn't easy. 

For those who would like to try tracking the machine 
language program above, a few brief notes, 32-228-255 
calls the PET subroutine to get a character (something 
like BASIC GET). 208-i— 96 exits if no character is seen 
(like IF X$=" " THEN RETURN). Now we're ready to zip 
through the screen with the character we found. We set 
up for repetition with 162-0 which loads an internal (X) 
register for 256 repeats; much later we invoke the 
repetition with 202-208-241, ard after the 256th time we 
return (95). Within the repetition itself, we set the 
four quarters of the screen with four 157-0-xx instructions." 



Those interested in getting seriously involved in machine language 
should consider first the MOS KIM-1 Microcomputer Module and: 

The First Book of KIM By: Jim Butterfield, Stan Ockers and 

Eric Rehnke 
Publ is her : Ha yd en 

The book is mostly machine language programs written for the KIM. Programming 
them into PET would be most difficult even with the Machine Language Monitor. 
KIM has numerous subroutines in ROM that aren't like PET's. 

Other suggested reading: 

Programming a Microcomputer By: Caxton C. Foster 
Publisher; Addison-Wesley 

MOS 6500 Programming Manual By: Commodore/MOS Technology 



6502 User Notes By: Eric Rehnke 

P.O. Box 33093 

$12.00/Yr.? North Royal ton, Ohio 

44133 
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All four publications are excellent, but for beginners I suggest 
the last tliree in order (if using PET with the M.L.M. ). 

Besides the program outlined in J. Butterfields article are four more 
that also operate in machine language. The first three read from the DATA 
statements data which has already been converted into decimal. This data 
represents the machine language instructions which (in these three particular 
programs) are POKEd into the second cassette buffer (826 to 1017). Since 
they are in decimal, a conversion program has been included so you may 
convert back to HEX and compare them to the table* However, not all of 
these will necessarily be instructions (as you will see when you find one 
that matches a "Future Expansion" code). Some may be addresses of direct 
data depending on the preceeding instruction. Addresses will appear as 
low order first, high order second. For example: 

JSR 00 05 

....will jump to the subroutine starting at location 0500 . 

The DATA statements in Life contain the actual hexadecimal repre- 
sentations of the instructions and addresses. They cire read by the 
program (line 110), tested for validity (lines 120 and 150), converted to 
decimal (lines 130 and l^+O) and POKEd into memory (line 160) starting at 
decimal location 61+00 (HEX 1900). SYS 6400 executes the program. 



View By Jim Butterfield 

from an idea by Brad Tempi eton 



10 PRINT"SVSS26 TURNS PflGEVIEW ON hND,-'UR OFF 

20 PRINT: PR I NT "SELECT PAGES WITH - P0KE849,. X-' 

j:0 PRINT TfiB'::i0::'"TRV K=0.. 2.. 4.. 31.. 232 

40 FOR J==S26 TO 853 : RERD K : POKE J.. X : NEKT : END 

50 DRTR 120.. 173.. 25.. 2.. 73.. 20©.. 141.. 25.. 2 

60 DRTH 173.. 26.. 2.. 73.. 229.. 141.. 26.- 2.. 38.. 96 

70 DRTR 162.. 0.. 189.. Q.. 0.. 157.. O.. 128.. 202 

80 DRTR 203.. 247.. 76.. 133.. 230 



Non-stop By Jim Butterfield 



REr'i+*llHi:;HINE LRr'.IGUHGE STOP KEV DISRBLE** 

1 GObUB 63520: END 

t.35,r;:0 DRTR 120.. 169.. 96.. 141.. 25.. 2.. 169.. 3 

521 DRTR 141.. 26.. 2.. 88.. 96.. 0,. 0.. 
63522 Df\'Tfi 120.. 169,. 133.. 141.. 25. 2.. 169.. 230 
^,2■;:523 C'!-i rft :.l..4;:i,., ;26.. 2.. 38.. 96.. 0.. 0.. 
e;3524 DH i""H 32.. 234.. 255 . lt.9.. 255,. 141.. 9,. 2 
^-„'^:52';::^ DiTl l-i ^'f;-.. .11:6.. ^ 

t.:::526 FOR L-8j2 TO 874 : RERD K : POKE L.. K : NEKT 

J '527' F'h' i -JRu 
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Auto-Repeat By The Software Shoppe 

From 'The Paper* Volume 1, Issue #10 



5 REri++riHCHir-4E LHNGURGE RUTu- REPEB r+ + 
10 DRTh 120,. 5b.. 169.. 2.<3, 23?.. 2b.. 2.. 141 
20 DRTh 26.. 2.. 88.. 96,: ipj:, 35, 2, 201.. 255 
20 DRTR 208.. 12.. 169.. 6.. 141,. 119.. 3.. 169 
40 DRTR 90.. 141.. 120.. 2.- 208.. 25.. 238.. 119 
50 DRTR 3.. 173.. 120.. 3.. 205.. 119.. 3.. 176. 14 
60 DRTR 169.. 6.. 141.. 128,. .i.. 162.. 255.. 142 
70 DRTR 3.. 2.. 232.. 142.. 119.. 3.. 76.. 133.. 230 
80 FOR 1=889 TO 94 7 
90 RERD J 
100 F-OKE I.. J 

110 ne?:t I 

120 PRINT"SVSSS9 WILL ENRBLE AND DISRBLE 

130 PR I NT "THE RUTu REPERT FUNCTION 

140 END 

200 REn i-f-TRV Ti fr::. HliTO T.-'EPEH I IN E;HSIC-+--r- 

210 GE T H:F 

220 PRINT Hf.; 

23^;:i POKE 515. 255 

240 GOTO 200 



Life By Mark Taylor 



lee REt^BL 

118 REAPA$.C=LEN(A$) • IFAf = "*"THENEND 
128 IFCC10RC>2THEN2e8 

138 fl= ASC < Al) - 4 8 : B=ASC ( R 1 6HTi < 1^ $ , 1) ) -43 

148 H=B*-7*<B33)-<C.=2:)i|(16»;c:ft+7<(ft>9)):J 

158 IFNCB0RrO255rHeGQ9 

168 POKEL.N:L=L<-l:GOT01ie 

288 PRINT"BVTE"L"=C"fl<"] END 

388 ])ATA6488 

318 »ArA20,3Q,19.£e..art,19,£:e..E6, 19,2Ei.QQ,lA,A^..34.3D, 11.E8 

328 BATA2B,7Q.19,ft9.3C,3D. ll..E3,A9,FF..CD,12,E8..FQ,E6,4C..3B,C3.ftft.63.23,4C.aB, 
338 DATA EA..Efl .EA, EA..Ert .EA, EA..fl2 , 19 . BD..3fl . 19 , 95 . IF , CA , D0..F3 ,68 , EiB .39 ,«0 , 15 .00 
348 l)ArA8e,88,lB,eB..lB,])7,2e..01,FE,D8..D6,29.27,8Q,E3,83..8Q,15.eEi.e8 
358 l)ATAEA,Ei^,EA,EA,Ert,EA.EA..Ert,EA.Eft..Ert,EA,Efi..Ert,EA,Eft..EA,EA,Efi.Efl.EA.EA.Ert 
368 DA TAEft .. EA , E A . EA.. EA , 28 . A6 13 , B 1 , 26 , DQ ,96 , A9 . 28 ,31, 28 . D8 . 94 , A«i . 51 . 9 1 , 2B . ?Q 
378 DATA BD, 13 , Fe, ED,2Q , A6 . 19 ..68 . 28 , A6.. 13 , Bl , 2e..';:3 , 5 1 , FB..86 , A9 , 88 .31 , 26 , F0 
388 DATAB4,A9,01,91,26.29.BD..19,F8,EB..28,A6.19..68,A9,e0,AA,A3,85.2g,35.26.35 
398 DArA39,A5,25,85,21,A5,29..35,27.A5..36,35.3A..60,E6,26,E6,28,E6..33,E8,E4 
488 DATA33,FQ,8C,EB,88,58,BE..E6,27,E6,21,E6.3A,D3,86,A5,34,C5,21,Fg,93,A9..0O 
418 DATA 68,A3,81,68..EA,EA,EA..EA,EA,EA.29,A6,1.9,B1,26,D0,06,A9,20.31 ,39,D0 
428 DATA04,,A9 ,51 , 91.. 33 .28 . BD.. 13 , F8 , ED..29 , A6 , 19.. 68 ,28. A6.. 13 ,28 , 2F, lA ,B1 , 39 .'C^ 
438 DATA51,F8.0C,A5..32.C9.e3..D0,14,A9,81,31.26..D0,8E,A5.32,C9,e3,F0,83,C9.02 
448 DATAFB,84,A9.ee,91,26,2e..BD, 19,F£i..D3,28,A6,13,68,98..43,3A.48.A0,88.84.32 
458 DATAA2.83,B5,29..10,15.49..FF.35,3?..33,A5.39..E5,37,85..22,A5,3A,35,23.B0.11 

468 DrtTAC6,23,D8,0D..13,65,39..35.22,A5..3A,35,23..38,82,E6..23,Bl,22..C3,51,D0.82 
478 DA TAE6, 32 , C A , DB .CF , 68 , AA .. 63 , A8 , 60 .. 3| 



11,0 FOR K"0 TO Ty F'RINT . f : H=^:^W ; 8=^0 : C^^^y : ; M^W : N = 

.T::: PP I i'JT : I NF'U f " hIEKT crcrcrcrcrcrcrcr - HE -vi- : L^^=LE: i ME XT 

iTy IF L..::>4 HfjE L^::T■ 1 HEN PkInT" E OR HE--:; DIGITS ONLV":GuTO 110 

140 IE L-4 liiuN ■■n-y^j^-H..EFJt(AiEKS, 2.) 

1 '5k} PT K 1 > J: Gi ■! I :$ HE'/. T.. 2 > : C 

100 ;-::~x+i 

170 f1=H00'::HT 'G:<;^ > - 48 

ISO IF H<:o OR f022 THEN PRINT "!hE>^ DIFil TS iliNLViGoTO 118 

1 9 B H S O •■ F: I G !-l T $ H t < X > J. > - 4 S 

c:m IF ECO OR BTEE THEN PRINT "I HEX DIGITS ONES'": GOTO 118 

Ei.ti f j-B +■ r':+: ( B>9 > - C-2 --i-: c xE--^- i-i < fC- v > ) 

220 IF L=Q THEN M=M+N : PRINT"DEC ADDRESS = 'T'EGOTO 110 

i iO IF E^4 THEN L-0 ; ri=^H+256 ; GOTO IbO 

240 PRINT" IN DEO = crcrcrcrcr "N : GOTO llO 



180 

110 

120 
120 
140 
150 
160 
170 
1S0 

100 
200 

210 
220 
220 
248 
258 
268 
270 
288 
290 

300 

310 
320 
330 
340 
350 
368 
378 
308 
398 

400 

410 
420 
430 
44y 

450 
460 

480 
490 

'500 

518 
520 
530 
540 
5^50 
560 



REM DECXMftL TO BINflRV TO HEKFlDECIMftL CONVERTER FROM TRflNSflCTOR ISSUE NO. 10 

REM WRITTEN BV KARL J. HILDON HBSOLUTELV NO COPYRIGHTS 
DIM R$c;i6> 

INPUT "DEC VALUE " .■ D* 

H=VHL'::D*> 

I F A- 1 NT •;: A ::■ <>8 THEN PR INT; PR I NT " ! I NTEGERS ONL V " : PR I NT : G0T0138 
IF 0>65535 THEN PRINT : PRINT"! 65535 MAXIMUM ": PRINT : QOTO130 
PRINT :PRINT"BINARV: ".; 
R E M ■+• + •+• + * •+• •+• * + •+• + * * * + * * 

REM H::+:H:BINARV CON VERT + H-:* 
REM * ■+■ * * * * * * * 

FOR K=i5 TO STEP-i 
V=A-2tX 

IF V<0 THEN R*'::X> = "8" 

IF V>=0 THEN fl* CX ;:' = "!" :R=A-2tX 

PRINT A*'::x::'.; 

C=C+1:IF C=4 THEN PRINT" ".; : 0=8 
NEXT 



■4-.+. -4: :+: :+: H : :+: :+: :+: :+: :+: :+::+::+::+! 
+:H::+:HEX CONVERT*** 



REM 
REM 
REM 

S$= " " : K-3 

PR INT: PR INT: PR I NT "HEX 
FOR H=15 TO STEP-i 

g=val<;a*c:h::' 

IF G=l THEN T=T+2tE 

K=K--1 

IF K<8 THEN GOSUB 488; 
NEXT 

PRINT: FOR L==0 TO 39;PRINT"." 
ON T+1 GOTO 410.. 428.. 430.. 448.. 



F>3 : T=0 



:. ; NEXT ; PR I NT ; GOTO130 
458.. 460.. 478,. 488.. 498.. 500.. 



518.. 520.. 530.. 540.. 550.. 560 



PRINT 


"0"+: 




RETURN 


PRINT 


"1" 


•K' 


y$, 


: RETURN 


PRIN r 


i! 11 


f ' 




; RETURf J 


PRINT 


1 i 1 i 


+ '. 




; RETURN 


PRINT 




+ 1 




; F:E T URN 


PRINT 






-r. 


: RETURN 


pi'ElNT 




-I- ' 


:.T: 


: ^^'i£ " OOr-j 


pRifrr 


i' 




;.T,. 


; RET URr-J 


PR II'Ti" 




-I- ; 




: F ETi iRr J 


PS-' I NT 


"■J'< 


■i- 


7;E; 


: RETURr.1 


PR I N T' 


"H" 


+1 


7;Ei 


; RETOPr.i 


PRINT 


"B" 


■+■ : 




; f?E;:TOF:N 


PRINT 


"0" 


.i„ ■ 


■.;rE. 


■ RE Tl, RN 


PRIi'TT- 


"D " 


..|. . 


T:E: 


; RETURN 


F'l':', i ' 


H V" J 


,|,.. 




EE Et\N 


PRINT 


"F" 


+: 




: RETURN 
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SHIFTED CAPITALS 



When vnriting programs with a great deal of text, it is sometimes 
best to use the lower case character set. This makes for easier reading. 
The game Hammurabi is a good example. 

To obtain the lower case mode on PET, location 59168 must be POKEd 
with iU (12 returns it to graphics). Now lower case letters, plus some 
other graphics are available on the PET by typing the desired letter while 
depressing the 'shift' key. However when a lot of text is involved, 
constantly holding down the shift key can become rather awkward. A 
'keyboard inverter' would certainly be desirable. 

P.T. Spencer, a high school teacher in Agincourt, enquirea about this 
possibility and then answered his own question with the following program 
which he has submitted for the Transactor. 



10010 r-'i '-. 00468.. 14 

10020 Zi-— " 

10040 GET 'r'$;lF THEf^ 10U40 

10050 't' H 3 C ' i' ' ■ I i-- 'i' ~ ■! i -i ■ '--^ - ' 

10060 IF V>64 HrJD WOl THEfJ V=:=V+ 128 : 00 r0 10000 

100 70 IF V:;102 FIND V<21y THEN V = V ■ 128 . 00 TLi 100': 

10080 G0Ti'' 10100 

10000 -i.^l-;F'::i> ' > 

10100 PRI14T VI.: ; l.::::Z:;0-l-V$ . G0T 10040 

10120 F'RIHT : RF' T GRi'-J 



The program only affects the alphabetic characters and prints 
everytning else out normally. Also, since the characters are being displayed 
under program control the lines won't be entered into memory, only displayed! 
To do tnis program execution would have to be halted and then line numbers 
followed by ?" inserted at the beginning of every second line of text. 
(Be careful not to type more than 75 characters per 2 lines or inserting is 
impossible. Also do not stop program execution less than 5 lines from the 
bottom or the "BREAK - READY" signal will cause text on the very top line 
to be scrolled off the screen.) Once this insertion is finished, hitting 
•return' enters the characters as program text. Only one pitfall is that 
these PRINT statements will return the text without the visual continuity 
(i.e. 'PRINT' starts at extreme left) unless the closing quotation marks are 
inserted and followed by semi-colons. Therefore it would be more desirable 
to enter the text into DATA statements and concatenate using the READ command. 
Instead you would insert the line numbers followed by DATA" or you could have 
the program do it for you using the following modifications: 



10000 RFll - -J-M . : .'S'DFFi H Fllf'HUHRR .IJ^iVF 

100:1':' h'Lj !■.[:' 1.'^ 

I ^;^^:1 ■ ; 1. 1 l i - I i ■ i, . : ' 

1 y04H::l '...ib, i 't1 . I F 'r 

lti00y V = HSF. ' V.:i:- : ,0- '.'-:-l,i i l-lFjH l.'.ll,: 
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Hardware Fix 



In Transactor #8, a liardware fix was illustrated to overcome tlie 
data file write problem. However, to install it required dismantling 
tlie cassette deck so the interface idea was presented. THis still liad 
one problem area: the switch.. Fortunately, I've received two responses 
regarding the ' INTEEFACE' . The first was from Jim lost in Somerville,MA. 

He writes "In reference to Bulletin #8: The capacitor charging 

switch you want is a simple transistor. The basic operational rule is 
that whatever current flows in the base allows jB times that to flow 
into the collector. P's typically are 100 or more nowadays. The 
circuit is thus: 



1 or 2 of any 

handy diodes to 
compensate difference 
write 5v and motor 6.5v 

WRITE * f^m-^J-Kl-^^ 



6.5v Motor source 



emitter 

PNP-any handy one 



4.7K-6.8K 



collector 




15,000 ^f 



The write pulses (lows) charge the 15,000;iF cap in pulses so 
that it is charged at the end of a write sequence when the motor 
source drops. Don't use the I'^p.'F - it would short the write pulses". 

Secondly, Andrew Chiu of Toronto has designed, among other things, 
an interface type fix for file writing to the cassette deck. This 
and other devices are for sale through Rapid Electronics. Andrew 
has submitted a complete description of the cassette deck interface 
and its operation which follows. 

Thank you, Andrew and Jim, and once again thanks to Richard 

Leon for launching the concept. 
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Andrew Chiu 
39 Farmview Cr., 
WILLOWDALE, Ontario 
M2J 1G5 



HARDWARE FIX ADAPTER 



The object of this design is to adapt Richard Lean's 
Hardware Fix (ref: TRANSACTOR BULLETIN #8) without dis- 
mantling your cassette and using Karl's "Interface" idea 
we can install a circuit between a 6 pin Molex Plug and 
the printed circuit board edge connector (see Fig. 6). 

A quick look at the table provided by Karl J, in the 
Transactor Bulletin #8 (table 1) indicates that when the 
cassette is doing a write operation the write-line is 'active' 
and for other operations it is 'high', therefore based on this 
unique active state a simple switching circuit can be controlled, 



TABLE 1 



PIN 


OPERATION 


on PCB 
Cardedge 


NONE 


READ 


miTE 


READ 


LOW 


ACTIVE 


ACTIVE 


; VJRITE 


HIGH 


HIGH 


ACTIVE ' 


SENSE 


HIGH 


LOW 


LOW 


MOTOR 


OPEN 


6.5V 


6.5V 



HOV; IT WORKS, Most PET lovers are the software type, 

in order to understand the theory behind this circuit, 
let us review some cheiracteristics of the key element, 
a diode. 

The ideal-diode approximation strips away all but the 
bones of diode operation, V/hat does a diode do? It conducts 
well in the forv/ard direction and poorly in the reverse 
direction. Boil this down to its essence, and this is what 
you get: ideally, a rectifier diode acts like a perfect 
conductor (zero voltage) when forward-biased and like a 
perfect insulator (zero current) when reverse-biased as 
shown in Fig. 3. 
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In circuit terras, an ideal diode acts like an automatic 
switch. When conventional current tries to flow in the 
direction of the diode arrow, the switch is closed (see Fig. 3b). 
If conventional current tries flowing the other way, the switch 
is open (Fig. 3c). We cannot simplify the idea of the diode 
beyond this point, IDEAL 

CLOSED 



ZERO K^veKSi 

Cl/RfiENT 



CONVENTION/^L 



IDEAL 



Cb) 



OPEWED 



= = 



CC) 



Fig 3. (a) Ideal-diode Curve, (b) 
(c) Open-switch analogy. 



Cloded-switch analogy. 



Once the operation of the diode is understood, then we 
can look at Fig,l, It is a complete diagram of the Hardware 
Fix Adapter, IC,1 is connected as a negative-recovery 
monostable circuit. As long as the write-line is active, 
the circuit stays triggered and the output remains High, 
(approximately equal supply voltage at no load). The current 
flows out from pin 3 and the capacitor 03 charges through the 
resistor R2 and diode D2, The capacitor is acting like a 
temporary quick charge battery. When the block is finished, 
the power to the motor is tiorned OFF and the write-line go 
High, The capacitor 03 will discharge through D3 to the 
cassette motor. The discharged energy provided power to the 
motor for a small period of time. This allows a larger gap 
between blocks. 

Fig. 4 is a simplified circuit, only the diode and 03 is 
shown. The imaginary switches are the approximation of 10. 1 
and the transistor switch which is controlled by the internal 
operation of your PET, Fig, 4 a & b when the motor power 
switch is turned ON and \ifrite-line is active, Dl and D2 are 
both ON, but D3 is OFF, Therefore the current has to flow 
into the capacitor and the motor. Fig 4 c & d when motor 
power switch is OFF and write-line is High, Dl and D2 is Off, 
but D3 is ON, Therefore the current can discharge through 
D3 to the motor. The ideal diode model is a helpful tool to 
explain the operation of the circuit. 
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Irt CURRENT 



5^55 TIMER 

"on " whem 
write uihe 




5-55 TIMER 
'»C>pp» WHEN 



(a) 



pi. X-*- 

ll^ l , > | 

1 J ri 



'7 



PI 



P3 



® 



ZZ 27 



(c) 



pj = *OFP " 



MOTOR S*0)TCH 

AMD 
S«5 Ti^-fstR 



ARE 



ON 




Vt 



P5 = •O'J 



WHtN Born 
MOTOR svO iTCrt 

AHD 

55S TIMER 
ARg "off" 



r - T- T 



L.JL - J 



Pi 



P5 



jair c5 



(d) 



Fig, 4 Simplified circuit diagram of the Hardware Fix Adapter, 



CONSTRUCTION. Wire-Wrap, point-to-point or pr inted-c ircuit 
techniques can be employed in the construction of the Adapter, 
However a printed-circut board definitely makes things easier 
once it has been made or obtained. I built my unit with all 
the components mounted on the board except the 20,000 uF capacitor. 
Watch the polarity of all the diodes and C3, The cathode (-Ve) 
end of the diode is marked with a Band or Bands, The polarity 
of the capacitor is marked on the label, some are colour coded, 
(red for positive). Transistor Ol may be supplied in different 
shapes. To identify the transistor leads, please check the 
mani^facturers data book, A component lay out diagram is shown 
in Fig, 2, Watch the spacing (0,156") of the card-edge connector, 
and the slot. The physical dimension must fit the 6 pin Molex 
Plug which the cassette uses. 
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+ 6.5/ o 



WRITE o- 

UNE 




Dl 



N40OZ 



RZ DZ 



c2 C5 



O.Oi/*P 



Fig 1. Circuit diagram of the Hardware Fix Adapter. 




NOTE 
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W/KITE 



0.156" Contact sPACinCr 



Fig 2. Parts placement, component-side view. 



OPEN THE PET COMPUTER, (This is the procedure outlined in 

the service manual) 

1, Press the rocker switch to the OFF position. 

2, Remove the power cord from the v/all socket to avoid 
possible electrical shock. 

3, Remove the two screws located on each side of the unit 
under the lip of the cover. 

4, Lift the cover slowly - a fev/ inches. I'/hen you locate 
the cable leading to the cassette, remove the connector 
at the main board. Then left the cover all the way up 
and engage the supporting rod located on the left side 
of the cover, 

INSTALLATION PROCEDURE OF THE ADAPTER. (see Fig, 5,6 & 7) 

1. Plug the 6 pin Holex Plug to the Adapter's card-edge 
connector, 

2. Plug the Adapter to the main board's card-edge connector. 

3. The big 20,000 uF capacitor can be mount in front of the 
main board by locking cable ties and adhesive backed m.ounts. 

FINAL TESTING. Miarphy's law states that "If anything can 
go wrong, IT V/ILL". So please check the polarity of all the 
components again before you touch the power switch. One thing 
will damage your PET for sure is a short circuit betx\feen ground 
and +5V line or +6,5V motor control line, I7hen you think 
everything is OK, Turn On your PET, and use a voltmeter to 
measure the voltage across 03, it should give you a very small 
reading (amost zero). If the voltage is right, type in the 
testing program. After you finished, SAVE the program, while 
your PET is saving the program, monitor the voltage across C3 
again, it should rise slowly to approximately to 4,5V and stop 
there, lihen finished saving, the voltage will drop to zero 
again (0.6V). Next, put a new 'tape in the cassette and RUN 
the test program. The test program will check and print the 
number of drop out errors found - you should have none, 

PARTS AVAILABILITY. Essential parts, including 6 pin 
card-edge receptacle (# K60013PCSCGD6 ) , Universal PC Board 
and 20,000 uF are available from ARICON ELECTRONICS LTD., 
91 Queen Street E,, TORONTO, Ontario, M5C ISl, 
A assembled and tested unit for $26.00 is available from 
RAPID ELECTRONIC, P.O. Box 1031, Station 'B', WILLOWDALE, 
Ontario, M2K 2T6. 
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Card-edge 
connector for 
cassette No.l 
6 pin Holex 
Plug. 



Fig 5. Simplified 
inside view of the PET 
with the cover removed, 




VIA 



65 



2 K (Tort 



6502 



6S20 



/4K ROM 



8K RAM 



Card-edge 
connector for 
cassette iIo,2 
6 pin ::clex 
Plug. 




Fig 7. Simplified 
view of the main 
logic bocird. 
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Fig. 6 



Installation 
of the Adapter. 



PET main 
Logic Bosird 




1 REM CREATION OF THE TEST FILE 

10 POKE 243,122: POKE 244,2 

20 OPEN 1,1,1 :REM OPEN CASSETTE NO.l 

30 FOR 1=1 TO 300 

40 PRINT I 

50 PRINT#1, I 

60 NEXT I 

70 PRINT#1: CLOSEl 

80 STOP 



NOTE: For Cassette NO. 2 the following 
lines have to be changed to :- 
10 POKE 243, 58: POKE 244,3 
20 OPEN 1,2,1 
105 OPEN 1,2 



100 REM RECOVER AND TEST THE TEST FILE 

105 OPEN 1 

110 FOR 1=1 TO 300 

120 INPUT#1,A 

130 IF (ST) AND 64 THEN GOTO 170 
140 PRINT A; 

150 IF A B+1 THEN PRINT "ERROR": J=J+1 
160 B=A: NEXT I 

170 CLOSE 1: PRINT J; "ERRORS FOUND" 
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(c) 1979 flrad Templeton 

One of the most important features of the COHHOOaRE "PT 
operating system is the use of Interrupts. They are used to 
reset the PFT* and they handle mpst of the tape and all of 
the keyboard i/o. This article will provide an introduction 
to intemjots on the 6502 (The PFT's cou) and a description 
of how the PET hardies them. For your information* pseudo 
source listing is Provided for the Interrupt software of the 
PET» as oroduced by my disassembler. 

Under normal conditions* a processor executes machine 
code in a linear fashion. It moves through memory* ob- 
taining instructions (which can be one* two or three bytes 
long) and executing them. Sometimes* certain programmed in- 
structions cause jumps to other Places* just like GOTO and 
GHSUB pf basic. To make a machine more flexible* however* 
interrupts are provided to do jobs that would be very expen- 
sive to do in software. 

Essentially* an interrupt is controlled by a lino right 
into the prpcesspr. When the processor detects the correct 
voltage on this line* an interrupt may be generated. First* 
in order to simplify matters* the processor finishes the In- 
struction it is presently carrying put. Then* if the in- 
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tarruot Is ok (intarruots can be masked)* The orocessor saves 
the prograin location it Mas at* and the contents of its 
flags onto the stack. It then goes to a soecial reserved 
area of memory (in ROM on the PET) and oulls out two bytes 
Indicating what location it should start executing trow. It 
then goes there and executes Machine code until the instruc- 
tion RTI (Return from Interuot %^0) Is encountered. It then 
goes back to the stack and restores Its flags* and loads the 
location it saved to the Instruction counter. It then goes 
and executes the code after where it stoooed es though 
nothing had occured. (If the interruot orogram was correctly 
wr 1 tten ) 

On the 6502» three tyoes of hardware Interruots can oc- 
cur* as well as a fourth soeciel type. The locations they 
branch to are keot in byte oairs called vectors at the end 
of memory. One of these Intemiots* Nil or Non Maskable In- 
terruot* can not be used on the Pf=T. Its vector* SFFFA-B* 
points to iC&60* which is the middle of a subroutine. The 
line for this is also fixed off by a resistor on the pc 
board. Later PETs may plan to include this. 

The Interuot called for oower up is named RES. It 
branches to a routine which sets uo basic and the operating 
system. It also* through what I consider to be one of the 
PET'S worst design flaws* branches to the routine to 
destructively test how much memory is in the machine. At 
the very start* it also tests the condition of the dlag- 
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nostic s«^nsB of »F'<10)» and qoes to the diaqnostlc 

routine it this is set, RFS is fired by power uo» or by 
orouadinq oin 27 on the bottom of your memory exoansion bus. 
If you set it by touchinq that pln» ft does not clear nemory 
below $A00, so oroorams there (the taoe buffers) are safe. 
This is» unfortunately* a very small area. It vectors 
throuqh iFFFC-D. 

The qeneral use, hardware Inte uot is the !R0, IRQ vec- 
tors throunh %FFFF-F, .^s does 8PK. This points to location 
tFftftB in th« PFT. It is generated every ftOth of a second by 
the tv hardware* and can also be generated from thn memory 
expansion bus* on oin It is also connected to the h'>2? 

versatile interface adaotor. I will discuss the ftO r»er 
second interruots here in detail. For Information of genera- 
tion hy the 6^?? (there is another whole article's worth of 
material in there) you can write MOS for the manual on it. 
Intemjots can bo qenerated from it at exactly timed inter- 
vals* and by certain i/o conditions on the user port and 
I?EE bus. The exactly timed intervals are used to send 
orecise frequency signals to the taoe. Iln fact. the b'y?2 
is the PfT«s taoe Interface!) 

The ^0 oer second interuots do the following: 
Scan the keyboard* cttecHinq for new keys and decoding them. 
Increment the real time clock* and check for midnight 
«^lash the cursor if it is on. ($022^ »0) 
Test taoe recorder status for stoo-start 
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Cooy a byte for the break key test. 

Whatever else you want thefp to r\o. 
When the IRQ occurs* the code at $Fft6B (see source) saves 
the processor register A» X and v on the stack. It then 
checks* by loading back from the stack* the flaqs* to see if 
the 8PK flat! was set. The R»K» a software IPQ* vectors 
through the same place* but sets the BRK flag. This is han- 
dy to test what tyne of interrupt occur od. It then does a 
jump indirect to one of two olaces in RftM {%?19 or 1.21") 
denending on the tyoe of interrupt. 

Normally, th«> PA** IPO vector is set to $t^685, which is 
the standard IPO code, «RK has no default setting. ^hp 
small piece of code you see after the J'^P indirects is the 
return code* which restores the registers and does the "''"I. 
The first thing IMT.CODc does is the JSR INC»_CLnCK which 
incre^flents the clock and copies the ^lA register th« break 
key test uses. When Steve Punter of ''ississauga saw this 
with the disassembler* he devised an ingenious way to 
disable the "^pc^i^ j^ey of the "ET. By telling the PET to 
branch to *P689 instead of fP^S5 by m-sans of a POKE 537, 116 
statement, the PET byoasses the INCP_CLnCK subroutine, inc 
does not test the break key. (Mote INCR_CLDCK oasses through 
a J^P vector table In high Rn«^ at <FFE4) This has the side 
effect of turning off the real time clock. when this state- 
ment is not used the clock oroceeds normally. After it is 
undated* it is comoared with a three byte table that con- 
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tains the value for midnight. If it is midnight on the 
clock* it is zeroed. The PET also Keeps a secondary clock 
just after the main one. This is used for calibrating the 
real time clock. 4bout every 6 seconds* this clock reaches 
a special limit* and when it does* it is zeroed* and the 
main clock is not incremented on this cycle. This is 
becuase the interruot generator runs slightly faster than ex- 
actly ^0 times per second. Even with this comnensat i on* you 
may have noticed the clock is a few seconds off after 
several hours of PET operation. If they had used the 60 hz 
ac power line for the interuot* it would have been more ac- 
curate* but that would have caused oroblems for PETs sold 
ab r oad. 

ifter doing the clock* it proceeds to flash the cursor* 
once every third of a second* if the location FLASHING 
is set to zero, (PFIKE 548*0 in a program turns the 
cursor on* but with some bugs - try it and see.) It does it 
with a very silly method that has no apparent ourpose* in- 
stead of the standard method* a FOP *80. It then sets up 
two keyboard test locations. 

In using your PET, you may have noticed that if the 
tape drive is stopped by the machine itself* that you can 
push stoo and play and the motor will run again. This is 
handled by the section of code at SE6C0. After this comes 
the keyboard interpretation routines. The method of 
decoding th« keyboard PIA has already been published in your 
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PET manuals and in PET user notes* so I will not dwell on it 
here. Once it has the matrix coordinate of the key* it 
waits for it to stabilize* to avoid bounce and reoeatinq 
letters. (The does this Doorly). It then converts 

the matrix number to an asc i i character throuqh the table pit 
%^75C, (Vou can use this table in your oroqrams* if you 
want to account for how long a key is held down - a great 
real time feature!) It then outs the key in the correct 
olace in the keyboard buffer starting at ^20f. Finally it 
goes back. 
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Bftcause the "FT irq goes through RAM* it is one of the 
main links you have that can give you ooerating system con- 
trol. You can insert your own programs before and after the 
interunt coda to have your PET do two Johs at once* like 
handle i/o while running basic, I have used Interuots to 
write nraqrams to: 

Interoret the PET keyboard and the full sized keyboard I 

attached to the PET like a regular keyboard. 

''rovide functions like reoeat after a certain oeriod of 

time and shift lock. 

Turn the ! key to a statement number key* so that it would 
orovide a line number 10 higher with every nush. 
Have uO'>er case letter keys orint out as full basic keywords, 
•lisolay whole pages of PET memory constantly on the screen. 
Provide a non-destructive reset that works in special cases. 
Much more Is possible. 

To use your own programs* you merely set them uo in 
some convenient location (machine code only)* preferably 
starting at location that ends in 485* such as S3fl5 in the 
second tape buffer. Something located there can then be 
started with a PnKE538»3 and stopped with POKE 53ft. 230* 
rather than having to write a special machine languaoe 
program that disables the interrupt with SEI* changes the 
locations* and enables the Interrupt with CLI. You do not 
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need to disable if you are only changing on*» byte of the 
location. Put soma code there and follow it with a JMP 
$E68'>. This way it does your code and orbceeds on to do Its 
own. If you out in the following series: 

EE 50 «0 85 Eh 

starting at *3fl5 C^Ol base 10)» and initiate it with POKE 
SIS*"? you will sfle a hyte on the screen constantly In- 
creasing In ••value"* once every 60th of a second. The pFT 
will also be doing everything else as usual. The following 
CO de : 

M 00 BO 00 00 <?0 50 «0 E8 00 F7 4C «5 E6 
wi II dump a oage of memory on the screen constantly. ^ou 
can ooke *»05 with the oage you wish to examine. Try 
0» I » 2 » 4» 3 1 » ?32 . It starts with nage 0. When scanning oage 
0» move the cursor and see what hapoens. 

While doing this* you may have noticed that there Is no 
flicker whatsoever on the screen desoite the massive amount 
of writing to it being done. (Far faster than BA^IC 
printing). This is because the intennjpt is fired by the 
screen scan signal* and the screen Is doing nothing shortly 
after the interrupt goes. This is also why the flashing cur- 
sor will never ••snow" the screen. You can store almost half 
a screen without "snow" this way. 

"sometimes it is Important to out code in after the In- 
terrupt code of the PET. This can be done by manipulation of 
the stack* and is necessary for programs like the statement 
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numberer or keyword printer I included in my list above. I 
have includad some code you can out in to allow you to do 
this. >PRnG means the high order byte of where your post in- 
teruot code starts and PSOG is the low order byte. PCLO and 
PC H I are two locations ^or storing the correct pc you can 
use. The nrogram works by altering the stack* so that the 
PET goes to your orogram when it RTIs. The second part of 
the orogra«s» which finishes your routine off (GOBACK) 
resets the stack and restores the orooer program counter and 
machine registers. You should be able to have a lot of ^un 
with it. 

It should be noted that orobably the only reason the 
130 vector Is in R4M is that the PpT does change it for taoe 
i/n routines. There is a table of possible vectors starting 
at In the rom» and the table ends with the standard 

vector tE681. If you ever change the high order byte of the 
IRQ RAM vector* you must reset it before taoe i^o Is done. 
I' you don«t» the ""^T will reset it anyway* but the tape l/o 
may not be done* and you may crash your PET. 

Incidentally* the disassembler was written In the system 
languane B (a very nice* much imprpved BC^L ) here at the 
University of Waterloo where I qo to school and work fpr the 
Mathematics Faculty Computing Facility. This article was 
also oreoared and formatted on the same Honeywell 66/<>0. 
Many of the labels used in the disassembly were orovided 
through the massive effort of examining the pETs R0»1s done 
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by Jim Butterfield of Toronto. next article for the 

Transactor mIII be on programminq interactive games for the 
PET, 

Q The 6522 Data Sheets (2^ pgs.) and other MOS publications 
are available through dealers. 
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Here is the co^e for the interruots on the "FT 
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AND 


«tFO 
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«r 


1 


F8 


STA 


PI Al 




AO 


00 




LOY 


#»0 




AO 


1 


F8 


LOA 


P I A I 


ESC 8 


OA 






ASL 






OA 






ASL 




Fsr A 


OA 






ASL 




FftCR 


10 


7 




RPL 


tEfSOA 






07 


0' 


STY 


C 1_ST AT 


E^no 


AO 


10 




LO A 


• tio 




00 


07 




BNF 


*EhOR 


FsnA 


AD 


07 


0' 


L OA 


C 1_ST AT 


ES07 


OO 


05 




RNE 


1.Ef»0F 




4 Q 






LO A 


• tis 




"O 


1 


F 8 


STA 


p I A l_R A 


ESDE 




OA 




BCC 


♦ EftE A 


ESFO 


flC 


« 


02 


STY 


C ?_STAT 


ESF 1 


AD 


AO 


E 8 


LOA 


PnPT_R 


ESFfe 


OQ 


I 




HRA 


n%io 


F(SE6 


00 


OA 




RSE 


tFf.F A 


FSE A 


AO 


8 


0? 


LOA 


C ?_STAT 


FSFD 


00 


o« 




RNE 


tFftF7 


ESFF 


AD 


40 


E 8 


LOA 


pnRT_B 


F^SF ? 




E F 




AND 


«$FF 


F *>F A 


«n 


AO 


F 8 


STA 


onpf _B 


E*>F7 


AO 


A 




L D V 


#1, « 


FS F Q 


A 


I ? 


F 8 


LOA 


K R_Rnw ! N 


FiSFC 


CD 


I ? 


E 8 


CMP 


KR_Rnw I N 


F*>FF 


on 


F6 




RNF 


tP6F 7 


E"'Ol 


«A 






LSP 




F"'02 


q 


OS 




RCS 


7oq 


E^OA 








PH A 






?0 


IF 


F 7 


JSP 


0FCnOF_KRO 


F7nfl 


s 






PL A 




F7oq 


C A 






OF X 




E70A 


F 


»^ 




OFU 


1.E71A 


F'^OC 








DC V 




F"''on 


00 


F ? 




RNF 


%E 701 


P "'OF 


FF 


I 


E 8 


I MC 


P I A 1 


F7 1 ? 





c-^ 




RNF 


SE(SF7 


E 7 M 


A n 


? 3 


0? 


LOA 


KFY_I MiGF 


F 7 1 7 


c n 


? 


0? 


CMP 


KF Y_DnWN 


F 7 1 A 


c 


7 




R PC 


f F 7-<C 


F 7 IC 


•^D 


03 


0? 


STA 


KF Y_onwN 


F I F 


A A 






TAX 




E7 ?0 


1 


1 A 




R«< I 


tE "^IC 


F ?2 


RO 


5R 


F 7 


LOA 


iF 75B,X 


F7 7«; 


4E 


OA 


0? 


I SP 


SHIFT_FL 


E728 


PO 


0? 




BCC 


tF 7?C 


F 72A 


oq 


80 




OR A 


«t«0 


c 7 ?c 


AF 


on 


0? 


LOX 


KF YCnUNT 


E7?F 


OD 


OF 


0? 


STA 


KEY_PUFF» X 


F7^2 


P 8 






IMX 




F73^ 


FO 


OA 




CPX 


«S A 


F7-?5 


00 


0? 




RNF 


tF73q 
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A 7 


A A 






1 n y 


tio 


c ~9 t n 


Be 


A A 


A7 




C T V 




t ' 


4 r 


7 C 


P A 






RPTIIPN INT 


C 7 1 C 






C 7 






IF 7SR • y 


C 7 i 7 




A 7 






AMP 


tP 74R 




& Q 








1 A 


1 




ftn 




n? 




T A 


SH I FT_FL 


P 7 4 O 


n f) 

I ' u 


1 A 

1 U 






R M P 

^ ^ C 


1.F 7SP 


P 7 4n 


r Q 


c p 






r p 


# ^ F F 


p 7 4n 

C ' H U 


p n 


'71. 






R P O 

~ c w 


t F7*iR 


E7AF 




3C 






CMP 


#1.1C 


C 7 •? 1 










R M P 

" P 


P 7S A 

P P f 7 O 


F753 




11 


E« 




BIT 


PIAl ♦ I 


P 7 •> *. 




y) ? 






n ^ 1 


tp 7«; R 

PC r 7 n 


P 7 A 


ftp 


7 "i 


A7 




^ T Y 




p 7 D 










T C 






A n 


A <\ 


A 7 


no n A T c r t ^ 


1 A A 

L '7 A 


r ^ nrv 7 


P 7 O Q 


A Q 

o V 


A 1 






A A r 

fl 'J L 




P 7 1 R 


ft n 


A >> 


A7 




<; T A 


L L IJ [V _ 


C 7 1 P 


O A 


A 1 






H r r 

n L L 


t P 7 4 7 


FT ^0 


F E 


A £ 

n A 


A 7 




I NC 


1 n ^ 1/ 7 1. 


r 7 «♦ 3 


1 ^ 


^ 1" 

D r 






^ M D 

C "1 P 


« 4 A C 

» ^ D r 


C 7 /. C 

r ' H 7 


n A 


A 7 

f 






Q Kl C 

HN r 


< P 7 A P 


C 7 A 7 


A A 


A A 


A 7 




1 n A 

L IJ A 


^ 1 nA 1^ 7 4. 


P 7 4 A 




A 7 






r *i P 




F 7 A r 


P A 


7 f> 






R P 


tP 774 


P 7 4 P 


p F 

r r 


A 7 


07 








P 7 *i 1 


7 Vy 


A 






n '1 c 


tF 7';r 


p 7«; 1 


P P 

r r 


n 1 


'7 r. 




I Mr 


M n DTK 4- 


P 7*1*. 

r ' 7 o 


n A 








RMP 

Lj ^ r 


%P 7'»R 


P 7«5 ft 


r t 


A A 


A7 




T Mr 


V- U L? L 


P 7 B 




n A 






1 n y 

l_ 7 ^ 


$ n 


p 7 c n 

r ' 7 U 


n 

n u 


A A 


A9 




1 n A 

L 17 A 




C 7 t A 


A A 


A B 

O O 


C 7 

r f 




r M 

L ~ r 


< P 7 A A . V 


C 7 t O 


A A 


I f 






o r 

tj L L 


«. p 7 7r 


C 7 i C 

r OT 


E 








T M V 




r 7 t z 

r 766 


C A 


A 






/* O V 

C X 


I 


F 76 ■ 


A A 

u 


C 7 






O Kl C 


< C 7 C A 


F 7f,a 


i Q 


00 






1 A A 

L '7 ft 


tf ft A 

« » U 


C 7 A. r* 


AA 


r r 


A 1 




C T A 


< 1 P C . V 


C 7 ^ C 


^ A 








n p V 

•J C ' 




C 7 7 A 


A A 


C A 

r ft 






Q K] P 

r5 !N t 


* P 7f\f 


P 7 7 7 


P A 


A A 






R P O 


HP 77r 


P 7 74 


A Q 


A A 






L 1/ » 


# t o 


P 7 7A 




A *; 


V/ (1. 




T A 


Ai nrK 7 


P 7 7Q 


ft n 




07 




J I H 


ri nrK 7 + 


F77C 


AO 


1? 






LOA 


KB_ROWIN 


F77F 


ro 


12 


E'i 




CMP 


KB_ROWIN 


F7ft2 


no 


P8 






BNF 


«F77C 


F784 




00 


02 




STA 


PIA_COPY 


F787 


60 








RTS 
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Here Is the source tor the post interruot code program 



START 



CTBACK 





1.105.x 


GET 


ST A 


PCLH 


PRHGR A'i 


lOA 


<106. X 


COUNTER AMD 


STA 


PCHI 


STORE IT 


LOA 


PRO", 


PUT IN YOUR 


STA 


1.105, y 


OWN CnOF 


LOA 




LOCAT ION 


STA 


*lOf)» X 




JMP 


$E695 


no NORMAL 1 


PpM 


THIS CODE 


GHES AFTFP YOUR 


LHA 


PCHI 


PESTORE 


PH A 


OL D 




LPA 


pcn 


LOC AT ION 


"HA 






TSX 






HFX 




RESET 


HFX 




STACK 


HEX 






OFX 






TVS 








1.F^5F 


PO RTI 



COD! 



TO RETURN 
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KVENICH & ASSOCIATES 

International Trade Brokers 

51 Carlinqvipw Drive Unit 5 Rexdale, Ontario MQW BE? . Phone 675-7333 

^ Telex 06-989100 



ATTENTION: NEW PRODUCTS 

KVENICH & ASSOCIATES HAVE BEEN ASKED TO DISTRIBUTE THE WAVECOM 
INTERFACE. DESIGNED BY THE MICRO-SYSTEMS ENGINEERING GROUP, 
THIS NEW PRODUCT WILL INTERFACE THE PET COMPUTER AND THE I.B.M. 
SELECTRIC TYPEWRITER FOR COMPREHENSIVE WORD PROCESSING. 

THE WAVECOM INTERFACE IS A STAND ALONE DEVICE WHICH CONTAINS 
ITS OWN PROCESSOR AND ROM MEMORY. NO PROGRAMMING IS REQUIRED 
TO RESIDE IN THE PET'S 2nd CASSETTE BUFFER AS IS THE CASE WITH 
MANY INTERFACES PRESENTLY ON THE MARKET. THIS FEATURE ALLOWS 
THE USER THE 2nd CASSETTE FOR BUSINESS FILES OR ACCOUNTING 
PROGRAMS . 



FEATURES OF THE WAVECOM INTERFACE 

1. A Stand alone interface. 

2. Plugs into the PET COMPUTER via the IEEE port. 

3. All parts are included with the WAVECOM interface (including 
plugs, and wire connectors). 

4. Plugs into the SELECTRIC typewriter. 

5. Installation of solenoids and plugs are required for the 
SELECTRIC by the user or dealer all parts are included, 
are provided, 

6. Can be used with a SELECTRIC terminal. Communication is 
via a telephone handset through an acoustic coupler. No 
modifications are necessary, 

7. Will also operate with many other computers such as TRS-80, 
SOCERER, and APPLE. 

8. Unplug the SELECTRIC typewriter from the WAVECOM Interface 
and the typewriter will return to normal manual operation. 

9. Allows any computer to completely control all user controlled 
key includina, the TAB FUNCTION and the BACKSPACE key. 



NEWS RELEASE 
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HOME COMPUTER CENTRE 

Computers for Home & Small Business 



6101 YONGE STREET. WILLOWDALE, ONTARIO M2M 3W2, CANADA 



(416) 222-1 165 
222-1 166 



HOME COMPUTER CENTRE 
ANNOUNCES 

TOE NEW RELEASE OF PET SOFTWARE 



The following programs are now officially released with complete 
documentation. 

1. ENTRY - Used as a general purpose data entry program for busi- 

ness applications with user definable entry format. 
List Price the program may be used for a Mail List, Daily Journial, 

$24.95 General Ledger, Record Keeping etc. It works with 

cassette printer, and other IEEE devices. 



2. PROCESS - General purpose data process program. It is designed 

for limited data processing power on the PET. Basic 
List Price operation includes SCRT, EDIT, DELETE, INSERT, and 

$24.95 MACRO. The program is particularly useful for merging 

large amounts of data from different input sources. 



3. INVENTORY - Inventory control program on the PET Data includes, item 

#, description, quantity on hand, reorder limit and 
List price prices. It generates inventory report and low inventory 

$24.95 report. Handle up to 60 items on the 8K PET. Data may 

be insert, delete, change, on the memory instantly. 



All the HCC offically released programs come with complete documentation. 
The programs are intended for practical business applications, and special 
techniques are used to insure easy operation and data reliability. Special 
features include interactive message, error-free operation, recoverable 
operator errors, general I/O etc. The released programs have been tested 
for an extended period of time. 
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COMPUTER COURSES FOR EVERYONE 



Human Computing Resources Corporation presents an ongoing program of courses on computers. 

The courses have been created in response to the growing need for an objective, non sales oriented, viewpoint 
on how to evaluate personal computers, microcomputers and minicomputers. They will be attractive to 
people from many walks of life - business people, professionals, artists, engineers, enthusiastic new users. 
They will be doubly attractive to people who have researched the computer market and find they lack the 
expertise to choose one system over another. 

Being offered in spring/summer 1979 are: 

Introduction to Computing and Personal Computers (bimonthly; 9 hours) 
How to Buy a Computer for Small Business (23 May and 1 8 July; one day) 
Introduction to Microprocessors (23 and 30 June; 14 and 15 August; 2 days) 
Introductory Programming in BASIC (monthly; 18 hours) 
Programming in PASCAL (bimonthly, beginning in June; 18 hours) 



In the works are courses on word processing, computers in the law office, and computers in medicine and in 
the medical office (two courses). 

Our instructors are skilled educators, business people and creative computer professionals. They have had 
broad experience with all types of computers and computer applications. 

All courses are held at HCR's offices, 10 St Mary Street, Suite 401, Toronto (near Yonge and Bloor), or in 
downtown Toronto hotel suites. Courses are priced at from $55 to $115. Fees for all courses are income 
tax deductible. 



For more information, mail in the form below, or call us at 922-1937. 



Please send me information about these courses: 



( ) Introduction to Computing and 

Personal Computers 
( ) How to Buy a Computer for Small Business 
( ) Introduction to Microprocessors 
( ) Introductory Programming in BASIC 
( ) Programming in PASCAL 



( ) Introduction to Electronic Troubleshooting 

( ) Introduction to Computer Graphics 

( ) Introduction to Word Processing 

( ) Computers in the Legal Office 

( ) Computers in the Medical Office 

( ) Frontiers of Medical Computing 



NAME 

COMPANY & TITLE 
ADDRESS 



PHONE 
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nfthcamm 

SYSTEMS INC . HALE nOAl), UNIT 7, BRAMPTON, ONT L6W3M1 • (416) 459 7616 



NaKCijimn SystPi.is Inc. wishes to extend thanks to Commodore for I he 
op|)Oi tiirii ty to offer you several new PET compatable items. 

You r.uiy find 'hese units an economical and easy way to exp.md ilu? 
cc..[iabi 1 i h it s rjf your PET: 



Mini Printer Modul TC-loo 
40 Character Per Seconii 
96 CharacttM" set 
5X7 dot matrix 

List iM u'u ;.4'^^-9S 



Full SJ2;u Keyboarvl MoiUil V-l-KH 
hist l'ric;e $199. 95 

32 K la Expansion Board 

floclal rMf>32 List Lrice $912.95 



Sl'J'CiAL MOTK: We also have available, an Interface Mode] P'i'i>-]0, 
allowintj the PET to operate with any Centronics Printer. List Pricu $b9.4'j 

Orders placed directly on Nakconun Systems Inc. will be dualt with iiroiui tlv. 

Our Term^i and Conditions are as follows: 

Payment - CnL,h (cheque or money order) with order. 
Warranty - 90 Days parts and labour. 

Delivery - I to 3 weeks depending on item and stock. 
After Warranty Service - Done on the Hakconmi premises. 

]f you require any additional information on the above desci i bed units oi 
tuitl er ej:planation of our offer, contact us at any time. 



Yours very truly, 
Nakconim Systems Inc. 



Donald R. Young, 
Marketing Co-Ordinatcn . 



Dealer Inquiries Invited 
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Convert Upper to Lower Case 



The following is a program that will convert all upper 
case text to lower case. However, keep in mind that any- 
graphic s above the alphabetic keys will now be iinusable if 
they are to appear simultaneously with lower case letters. 

59030 FOR T=^02k TO 8006-FRE(0) :A=PEEK(t) 

59031 ON Z GOTO 5903^,59037 

59032 IF A=153 OR A=178 THEN Z=1 

59033 NEXT 

59034 IF A=34 THEN Z=2:NEXT 

59035 IF A=58 OR A=0 THEN Z=0 

59036 NEXT 

59037 IF A 6k AND A 91 THEN POKE T,A+128 

59038 B=PEEK(T+1 ) :IF B=34 OR B=0 THEN Z=0 

59039 NEXT: END 

When writing the program use no spaces. The program 
will convert strings and PRINT statements but will not 
affect DATA statements. Also, it may terminate with a 
' ?NEXT WITHOUT FOR ERROR IN 59036 ' but that ' s OK. 

Of course you need not use the same line numbers. They 
were chosen due to their unusualness. The program was then 
recorded using the UNLIST routine in Transactor #7. It can 
then be merged with other programs with a good chance of not 
interfering with other program lines. 



To receive Transactor Volume 2 bulletins, please return this 
form with jrour cheque for $15.00 annually renewable, to CBM 
3370 Pharmacy Avenue, Agincourt, Ontario, MIW 2K^. Volame 1 
back issues will be available at 10 dollars for a limited 
time only (while supplies last). 



NAME 

COMPANY (if applicable) 

ADDRESS 

POSTAL CODE 

RECEIPT REQUIRED? YES Q NO □ 

(Invoices cannot be issued for the $15.00 annual fee) 

IDEAS 6 COMMENTS 



VOL 2 
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NOTES 
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THE USER PORT COOKBOOK 



This bulleting_ descri bes how to use your PET's user port and 
how to interface it to real devices. 

The pin-out of the user port is shown below: 

(Viewed from the top) 



5 g <<<<<< <<<m^ 



Top 



\P£>LAfiI^Arie^f^ J 
^LoT^ 



The user port pins are on the bottom of the PET circuit board. 

Page 22 of "An Introduction to Your New PET Personal Electronic 
Transactor" describes the manufacturer part ^ for several edge 
connectors which will fit the user port. If you cannot find a 
12 position 24 contact connector, saw off a larger one to fit. 

Note: Be sure that the upper and lower contacts in the con- 
nector are not electrically connectedl Other signals reside 
on the top side which are not compatible with the user port. 

The pin names correspond to the lines which connect to a MOS 
6522 VIA, Versatile Interfree Adaptor. 

The data sheet for this LSI chip is available from Commodore, 
360 Euston Road, L^^ndon NWl 3BL. (It is 24 pages long.) 
This bulletin is concerned with using the user port, and will 
not describe the 6522 in any more detail than is required. 



Cont'd. 
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Pins CAl and CB2 act as "handshake" lines. Pins PAO through 
PA7 act as data lines Electronically, these lines can drive 
one TTL load. If your caule is more than 24" long, you may 
have to buffer the lines. 

A series of memory locations in the PET act as control and 
data registers for the 6522. These are accessed via PEEK and 
POKE in BASIC, and by the 6502 machine language instructions 
which read and write to memory. 



The memory locations of use to us are: 



Name 

Data Direction Register 
Data Register 
Data With Handshake 

Peripheral Control Register 
Auxiliary Control Register 
Interrupt Flag Register 

See the 6522 sepc. sheet for the exact definitions of these 
registers. The examples in this bulletin will cover most of 
your usual uses of the user port. 



Hexadecimal 


Decimal 


E843 


59459 


E84F 


59471 


E841 


59457 


E84C 


59468 


E84B 


59467 


E84D 


)469 
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Cont • d . 



THE "BLINKIN LIGHT" MACHINE 



One way to get started with the user port is to build a device 
calspable of showing the status of each line and to permit 
manual control of the lines Here is a block diagram of a 
display/switch panel: 



V 



UN 



H 




a 










^ 







ShA>k c- 



DMA 



C-uTftv 



Some breadboard and about $20.00 of parts (at very retail prices) 
resulted in the following circuit. 7404 inverters serve as the 
buffer amplifiers, the +5 is taken from the cassette ^1 supply, 
dip switches are used for isolation, slide switches for the 
register, and some toggle switches for the handshakes. 



Note ; This circuit draws 
available from the PET. 



200MA which is close to the maximum 

Cont ' d . . . 
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Parallel User Port Indicator and Switch Register 



<1 (vl (Yt J- lji 

<£: « 4C <c ^ 



a- ^ a- ci- 

9 C 



< 

a. 



vj 



T 
O 

r 



c4 



— [>o- VvW — 'l*^ ■ 



— i>^-AA/VV — 4 

— [>-^Wv — 



-{>-VVVV — 



7 



DMA 



Cont'd. . . 
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The following examples assume you have an equivalent device 
Lo attach to your user port. lie sure that (i) the device 
works correctly, and (ii) the connector is correctly pluged 
in. Sometiiaes the PET PCB has its pins offset slightly, 
uiaking it possible to insert the connector so that one pin 
on the connector touches two on the PET, etc. The l>est 
solution is to use the polarizer slots. 

1. Simple Output 

Enter and run: (Be sure your isolation switches are all 
open ) 



10 


REM SINPLE OUTPUT 


20 


REM DATA DIRECTION - Al.l. OU 


30 


POKE 594 59,2 55 


40 


FOR J= to 2 55 


50 


POKE 59471, J 


60 


POKE - 1 Lo lUU : NEXT K 


70 


NEXT J 


80 


GO TO 40 



You should see your data EEUs count in binary from 00 to 
KF (0-255) wLth PAO, the ESB, blinking at about 3HZ. 

Line 30 sets the data direction register to all '1', which 
sets all data lines for output. Each bit in the D.D.R. 
corresponds to a given PAO-7 line. The PA line Is: 

Input if bit is zero 
Output if bit is one 

To see the effect of this, change line 30 to: 

30 POKE 59459,15 

Now, only the 4LSb (PA0-PA3) will blink. Lines PA4-PA7 will 
be lit with no change. (Note: The TTL input of the 7404 
will force the input lines high. Therefore the 4 MSB will 
indicate A '1' state If your display circuit is different 
the state of the MSB might be zero. In any case, they won't 
change . ) 

Try other masks to see other patterns. 

Cont ' d . . . 
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Line 50 POKES Lhe daUa register with J (0-255) inside the For- 
Next loop in lines 40-70. 



Line 60 is a delay. Try removing it and you will notice that 
the PAO line will blink too fast for you to see. (Vut PAl 
will flicker). 

Line 80 starts the counting loop over again. 

You can write other programs to make moving patterns, etc. 

II. Simple Input 

Enter and run: 

10 REM SIMPLE INPUT E Clear/home 

20 HEM D.D.R. = INPUT [s] Home 

30 POKE 59459, [l] Cursor left 

40 PRINT " [vj 

50 PRINT "lU" PEEK (59471) "[I]"; 

60 GO TO 50 

Connect your data switch register by closing the 8 data isolation 
switches When these switches are closed, the switch register 
forces PA0-PA7 to the value selected by the switches. 

A number will appear in the upper left corner of your PET's 
screen. Set your switches to all zero, and then set bit 
to 1. A '1' will now appear on the PET, and on your date 
display. 

Try one switch at a time to get: 1-2-4-8-16-32-64-128 and 
then try other combimitions . 

Notice that if you open an isolation switch for a given bit, 
it will become a *1' due to the 7404's. 

Line 30 sets the D.D.R. to ail zeros, naming PA0-PA7 inputs. 

Line 40 clears the screen. 

Line 50 homes the cursor 

prints the data register's value 
prints the CURSOR LEFT and 3 blanks. 

Line 60 loops back to line 50. 

Note : .The CURSOR LEFT is required because numbers are printed 
on the PET in the form: 

123.45 . 



BLANK DIGITS CURSOR 

OR "-" RIGHT Cont'd. . . 
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This 'trick' removes left over digits from the previous 
number - suppose you had set bits 7 and 3 (giving 135) and 
then you reset bit 7 (leaving 8). If you don't remove 
the characters, you will see 8361 I 



III. The Handshake Lines 



The 6522 provides several options for the CAl and CB2 lines. 
See the 6522 specif icatiou for full details. 

Note ; Several of the addresses mentioned below control other 
aspects pf the 6522. If you can bits other than those 
mentioned, you may have an inoperable PET, as your PET uses 
the 6522 for internal uses as well. (The 6522 has CA2, 
CBl, PBO-7 lines which the PET uses for other I/O functions 
than the user port.) You are warned I (I wasn't able to 
SAVE a program until I had reset two of the registers which 
had been POKEd erroneously I '. ) 



For our purposes, these registers control the CAl and CB2 
lines : 

Data Register DATA 

Data with Handshake HDATA 

Peripheral Control Register PCREG 

Auxiliary Control Register AUXKEY 

Interrupt Flag Register IFREG 



The acronymns in the right column above will be used from here. 

CA1[ CAl is an input only line which can detect a "Data Ready" 
transition. When it does so, bit 1 of the interrupt flag 
register is set. *(Our convention is MSB is bit 7, LSB is 
bit 0)* 



When the HDATA Register is read or written, the bit in the 
IFREG will be reset. Accessing the data register has no 
effect on the IFREG. 



Detecting the flag bit is done by: 

IF PEEK (59469) AND 2 THEN ( Line /M ) or: 
WAIT 59469, 2 



Cont'd . . 
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Bit in the PCREG controls whether CAI sets the flag in the 
IFREG. If this bit is zero, a negative transition sets the 
flag bit. It it is one, a positive transition will be 
detected 



Negative Transition 




POKE 59468, PEEK (59468) AND 254 



Positive Transition 




POKE 59468, PEEK (59468) OR 1 



Use the expressions above to choose the transit on you want. 

The flag bit will remain set until the HDATA register is read 
or written. Bit of the AUXKEY controls whether the data 
is latched when the flag bit is set. 

AUXKEY Bit = No latching The value of the 

DATA and HDATA registers follow the PA0-PA7 
lines (those set for Input) regardless of th: 
the CAI flag bit in the IFREG. 



Bit 1 = Latching. When the CAl flag bit 
is set, DATA and HDATA will be latched. 
Their value remains the same, even though 
PA 0-PA7 may change. 



CB2| Using CB2 is more conqilex than CAl. The 6522 specification 



should be consulted for the more exotic ways of using CB2. 



CB2 can be used as: 

A. Handshake output 

B. Handshake input 

C. Shift register I/O. 

Bits 2, 3, and 4 of the AUXREG control whether handshake or 
shift register mode is to be used. If the bits are all zero, 
CB2 is in handshake mode. If any bit is not zero, CB2 is in 
a shift register mode. 
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HANDSHAKE MODES 



Output Mode 

First you must set the AUXREG to disable the shift register. 
This is done with POKE 59A67, PEEK (59467) AND 227. 

Then you can force CB2 low with POKE 59468, PEEK ((59468) AND 
31) OR 192 and you can force CB2 high with: 

POKE 59468, PEEK (59468) OR 224. 

Here is an exaiaple program which blinks CB2 at about 1 HZ: 

10 REM CB2 BLINKER 

20 POKE 59467, PEEK (59467) AND 227 

30 POKE 59468, PEEK (59468) AND 31 OR 192 

40 FOR J=x 1 TO 300: NEXTJ 

70 GO^O 30 

Input Mode 

Note: This section has not worked in practice. Toggling 
CB2 does not set the flag bit. 

CB2 will set bit 3 in the IFREG if a transition occurs and 
the PCREG is set correctly. 

First, set the AUXREG bits 2, 3 and 4 to zero, 

POKE 59467, PEEK (59467) AND 227 
If detection of a negative transition is wanted, 

POKE 59468, PEEK (59468) AND 31 
If a positive transition is wanted, 

POKE 59468, PEEK (59468) AND 31 OR 64 

Then, to detect a transition, check bit 3 of IFREG: 

IF PEEK (59469) AND 16 THEN ( line H^ ) 
or, WAIT 59469, 16 
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To reset the flag bit, the B port register must be read. 

X - PEEK (59456) 
((Don't POKE this address!'.)) 
SHIFT REGISTER MODES 

If bits 2, 3 and 4 in the AUXREG are not zero, CB2 acts as 
a shift register. Set the 6522 specification for details. 

Only one of these MODES can be conveniently handled in BASIC. 
The others require roachine code to operate correctly. 

The "Blinken Lites" can be given an audio capability with 
the following change: 



Just add an extra inverter (two remain for use) and a 
capacitator to the CB2 Led driver's output. 

Note : It is advisable to add an electrolytic capacitator, 
say 100 mfd to the Blinken Lite so that a sudden drain of 
power won't reset the PET. 

Check the audio extension by toggling the CB2 line in output 
handshake mode: 

10 POKE 59467, PEEK (59467) AND 227 

20 A = 59468 :X = PEEK (A) AND 131 OR 192 

30 Y = PEEK (A) OR 224 

50 POKE A, X: POKE A, Y: GO TO 50 

LINE 10 sets up AUXREG to disable shift registers, 
LINE 50 turns CB2 on and off. 




O To Audio 
Amplifier 



+5v 



.22 uf 
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The reason for making the variables A, X and Y is because 
BASIC references variables much faster than converting con- 
stants. This maximizes BASIC s speed. 

The PET keyboard can change the tones by using these changes: 
40 Z-515 

50 POKE A, X: FOR J=l TO PEEK (Z): NEXT: POKE A,Y:GOT0 50 

Pressing different keys will give different rates of clicking. 
You now have a low fidelity sound-maker. 

FREE RUNNING MODE 

When AUXREG bits 4-2 are "100", the shift register cyclically 
outputs its contents on CB2 at a rate determined by the Timer 2. 
The addresses are: 

SHIFT REGISTER: 59466 
TIME 2 59464 

Time 2 decrements to zero and then shifs the shift register 
once. Timer 2 is reloaded and this goes on. The output bit 
of the shift register is put in bit 7, causing the register to 
"rotate right". 

Here is a simple "Music Maker" program: 
10 REM MUSIC MAKER 

20 POKE 59467, PEEK (59467) AND 227 OR 16 
30 PRINT "TONE COLOR"; 

40 INPUT TC 

50 IF TC < 1 OR TC > 254 THEN 30 
60 POKE 59466, TC 
70 PRINT "PRESS KEYS FOR TONES" 

80 GET A $: IF A $ = " " THEN 80 

90 POKE 59464, ASC (A $) 

100 GO TO 80 

It is straightforward to use the letters to make a true "key- 
board" - choose notes for each key and make a table which is 
indexed by the ASCII value of the key. This is left as an 
exercise. (With only 256 possible frequencies, the options 
are somewhat limited.) 
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IV. Some Interfacing examples 



The following program lets you monitor the user part and 
modify any registers you wish as required. Be sure to save 
it on tape BEFORE running it. (Also, be sure you have not 
run any other programs first, i.e. turn the power on/off to 
initialise properlyll) 

Once you have it saved, RUN it. Its operation is quite 
simple. The registers are named according to the 6522 
specification with one exception, "DATA" is ORA without 
handshake. Use the"Jlinken Lights" and this program to 
see how all parts except the shift register works. 

10 REM PET 6522 VIEWING PROGRAM 

20 REM MY: GREGORY YOB, COMMODORE 

30 REM 

40 REM SET UP R $ = REGISTER NAMES, 

50 REM A () = REGISTER ADDRESSES, 

60 REM F () = SHOW REGISTER IF 

70 DATA "ORB", "ORA", "DDRB", "DDRA" 

80 DATA "TILC-L", "TIC-H", "TIL-L", "TIL- 11" 

90 DATA "T2LC-L", "T2C-11", "SR", "ACR" 

100 DATA "PGR", "IFR", "lER", "DATA" 

110 REM 'DATA' IS ORA WITHOUT HANDSHAKE 

120 DIM R $ (16), F (16), A (16) 

200 A=59456: FOR J =1 TO 16 

210 READ A $: R $ (J) = LEFT $ (A $ + "eight blanks", 

E) + ":" 

220 A(J) = A: A=A+1 
230 NEXT J 

240 F(4) = 1: F (12) = 1: F (13) = 1: F(14) = 1: 
F(16) = 1 

300 REM SET UP DISPLAY 

310 PRINT "0 7 6 5 4 3 2 1 0" 

320 PRINT "EiEiiaElEliaiQlEllll H EHqITqI"; 

330 PRINT "D = DATA P = POKE S = SHOW" 

340 PRINT "II = HELP Q = QUIT" 

[yI = Clear/Home 
m\ = Cursor Down 
[S] = I'ome 
m Cursor Left 
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LOOP 



REM DISPLAY Y 
PRINT ' S Q Q , 
FOR J = 1 TO 16 
IF F(J) = THEN 
Z = PEEK (A(J)): 
NEXT J 

REM IF NO INPUT DO 
GET A $ : IF A $ = 



450 
PRINT 



LOOP 
II ti 



R $ (J);: COSUR 1000 



AGAIN 
THEN 410 



§_ = Cursor up 



REM DO COMMANDS 

IF A $ - "D" THEN GOSUB 200G 

IF A $ = "P" THEN GOSUB 2500 

:k a - "s" riiEN gosub 3500 

i; A "ii" THEN GOSUB 3000 

IK A ; - "Q'' THEN END 



CO TO 310 



REM HfrJARY DISPLAY 

ZI =1 28 

FOR Z2 = L TO 8 

PKir^r SGN (Z AND EL); 

iF Z2 = 4 riiEN PRINT " "; 

Zi - Zl/2: NEXT Z2 : PRINT: IxETURN 



REM DISPLAY HANDSHAKE REGISTER 

Z = PEEK (59457): PRINT ' ' R $ (2);: GOSUB 1000 
PRINT "g]";: GOSUB 4990: RETURN 



PRINT "[v| POKE REGISTER f S | Q | Q 

GOSUB 4000 

GOSUB 4500 

POKE A (Z), B 

RETURN 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
ABOUT 
PRINT 
PRINT 



II 



vj 6522 REGISTER DISPLAY AND CHANGE |Q|Q 
"THIS SHOWS THE VALUES FOR THE PET'S 
"VIA REGISTERS. YOU CAN LOOK AT ALL OF 
"THEM. THOSE USED FOR THE USER 
"PORT ARE SH OWN W HEN THE PROGRAM 

THE DISPLAY IS REFRESHED 



"STARTS . 
ONCE 

"PER SECOND. 
^ D = DATA 



PRESS 
READS 



A KEY TO 
ORA WITH 



DO A COMMAND 
HANDSHAKE 
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3080 
3090 
3100 
3300 
3500 
3510 
3520 
3530 

3540 
3550 
3560 
3570 
3580 



P = POKE LETS YOU POKE A REGISTER 
S = SHOW SELECTS REGISTERS TO DISPLAY 
Q = QUIT STOP PROGRAM 
; : GOSUB 4990: RETURN 



PRINT " 
PRINT " 
PRINT " 
PRINT " 

REM CHANGE DISPLAYED REGIST ERS 
PRINT "\V\" SHOW REGISTERS { Q|Q|Q 
GOSUB 4000 

PRINT "S = SHOW, E = ERASE, 
GOSUB 5000 

IF A $ = "S" THEN F (Z) = 1 
IF A $ = "E" THEN F (Z) = 
IF A $ = "X" T HEN RETURN 

USE 



PRINT 

GO TO 



3520 



Q Q 



X = FINSISH"; 



4000 
4010 
4020 
4030 
4040 
4050 

4060 
4500 
4510 

4520 
4530 
4540 
4550 
4560 



REM GET REGISTER NAME, RETURN Z = INDEX 
PRINT "QQ REGISTER NAME : | 



INPUT AS 



RESTORE: FOR Z = 1 TO 16: READ B S 
IF B$ = A$ THEN RETURN 

NEXT Z: PRINT " |Q|Q|Q| THE REGISTERS ARE CALLED: 
FOR J = 1 TO 16: PRINT LEFT $ (R$ (j), 6)" 
NEXT J 

PRINT " !§•••§•>§§§§ I "; : GO TO 4010 
REM GET BINARY NUMBER 

PRINT "BINARY VALUE: " ;: INPUT A$ : Zl = 128: 
B = 

IF LEN (A$) < 8 THEN PRINT " • GO TO 4510 
FOR J = 1 TO 8 

IF MID $ (A$, J, 1) = "1" THEN B = B OR Zl 
Zl = Zl/2: NEXT J 
RETURN 



5000 GET A$: PRINT " | &| | | "; : FOR K = 1 TO 20: NEXT K 

5010 PRINT "m"; FOR K = 1 TO 20: NEXT K 

5020 IF A $ - " " THEN 5000 

5030 RETURN 



EXAMPLE 1 An Encoded ASCII Keyboard. 

A surplus encoded ASCII keyboard was found with the following 
pinout: 

Keyboard Wired to PET'S 

Pin 1 INT KEY 1 

2 RPT KEY 

3 (NO CORRECTION) CB2 

4 
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Keyboard 



Wired to PET'S 



5 GND 

6 +5v 



GND 

(SEPARATE +5 SUPPLY) 



7 STROBE 

8 PARITY 



CAl 
PA7 
PA3 
PA2 
PA0 
PAG 
PAl 
PA5 
PA9 



9 B4 

10 33 

11 Bl 

12 B7 

13 B2 

14 B6 

15 B5 



First, the keyboard was connected to the "Blinken Lights" to 
check what it did, The "Blinken Lights" power was provided 
by the supply for the keyboard. 

Watching the LEDS for PA0-7 and CAl it was found that: 

(1) the correct ASCII code with parity appeared, and (2) the 

CAl went high when a key was depressed. 

The CAl LED flickered when roll-over was tried (press one ke^ 
press 2nd key, release first key), showing that the keyboard 
had this feature. 

Next, the keyboard was attached to the PET and the following 
program entered: 



The ASCII values now appear in decimal on the PET's screen. 

Now to us the CAl input, and write characters on the screen, 
we have to: 



10 
20 



PRINT "E" PEEK (59471) and 127 "CD 
GO TO 10 



•». 



1. 
2. 
3. 
4. 
5. 



Enable latching 

Set CAl to positive transition 
Wait for CAl FLAG bit 

Get the data and print it as a character 
Go to 3. 



In Basic: 



10 
20 
30 



REM PRINT ON SCREEN FROM USER PORT 

PRINT "EI"; 

POKE 59468, PEEK (59468) OR 1: REM PGR + 
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40 
50 
60 
70 
80 



POKE 59467, PEEK (59467) OR 1 : REM ACR LATCH 
IF PEEK (59469) AND 2 THEN 70 
GO TO 50 

PRINTS CHK$ (PEEK (59457) AND 127); 
GO TO 50 



Of course (II) you must enter your characters in UPPER case - 
so press SHIFT if you have a FULL ASCII keyboard. 

Note ; When I was doing this, I would plug the unit in and 
nothing would happenll Using the Blinken Lights, I saw the 
keyboard worked just fine. The actual problem? Be sure 
your socket is CORRECTLY inserted and is LINED UP with the pins I 

DIGRESSION 

How to represent the PET character set using ASCII. A study 
of PET & ASCII reveals that the PET recognizes 138 symbols and 
functions while ASCII recognizes 128 combinations. 

Here is a solution to this problem. 

1. ASCII Characters 0-31 are ignored except for these: 
(alL values are in decimal) 



1 
2 
3 
4 
5 
6 
7 
8 



A RVS ON 
B RVS OFF 
C -> HOME 
D -t HOML/CLR 
E -» CRSR DOWN 
F CRSR UP 
G CRSR RIGHT 
H CRSR LEFT 



13 




DELETE 
INST 
+ RETURN 



27 
10 



(ESCAPE) Puts the conversion into "Graphics Mode" 
(LINE FEED) Puts the conversion into "Normal Mode 



II 



2. 



Normal Mode 



Characters 
Characters 
Characters 



0-31 Are the same 

32 - 93 Are Unchanged 

9b - 12 7 Are changed to 64 



95 (Convert to 



Upper Case) 



3. Graphics Mode 



Characters 
Characters 
Characters 



- 31 Are the Same 
32-95 Are Changed to 160 - 
96 127 Are Changed to 192 - 



223 
223 
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This subroutine fetches an ASCII character and converts it to 
a PET character by the above rules. It is assumed that the 
initialization is performed and the mode flag, MF, is not 
changed. 

1000 REM - INITIALIZE ROUTINE 

1010 DATA 0, 10, 146, 19, 147, 17, 145, 29, 157, 
0, 0, 0, 0, 13, 0, 0, 0, 20, 148 

1020 DIM TT (31): FOR J = TO 18: READ TT (J): 

NEXT J 
1030 MF =. 

1040 POKE 59468, PEEK (59468) OR 1 

1050 POKE 59467, PEEK (59467) OR 1: RETURN 



2000 REM - CONVERSION ROUTINE, RETUINS A$ 

2010 IF (PEEK (59469) AND 2) « THEN 2010 

2020 CH = PEEK (59457) AND 127 

2030 IF CH > 31 THEN 2100 

2040 REM CTRL CHAR 

2050 IF CH =. 10 THEN MF = 

2060 IF CH = 27 THEN MF = 1 

2070 IF TT (CH) = THEN 2010 

2080 A $ = CHR$ (TT(CH)): RETURN 

2090 REM CASE CONVERT 

2100 IF CH > 95 THEN CH = CH-32 

2110 REM MODE CONVERT 

2120 CH « CH + MF * 128 

2130 A $ » CHR$ (CH): RETURN 



Try it out and see 1 1 Look at your PET keyboard if you are 
confused . 

Note: Don't forget the parenthesis in line 2020 
EXAMPLE 2 The Writehander 



The Writehander TM is a one-handed keyboard described in 
INTERFACE AGE, January 1978, and is manufactured by the NEWO 
CoK^any, 246 Walter Hays Drive, Palo Alto, California 94303. 
We interfaced it to the PET to try it out... 
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The Writehander has a 16 line rainbow ribbon cable with this 
pinout: 





WRITEHANDEK 




PET 


Line 


Color 


What 




1 


Brown 


bit J 


PA0 


z 


Keu 


+/-+2JV Power 




■J 
J 


Orange 


bit / 


PAl 


A 


I e 1 iow 


IjHU 


GNU 


c 
J 


Green 


Bit J 


PA2 


D 


Blue 


+5v 


+5 (Separate) 


7 


Violet 


Bit 4 


PA3 


8 


Gray 






9 


White 


Bit 5 


PA4 


10 


Black 






11 


Brown 


Bit 6 


PA5 


12 


Red 






13 


Orange 


Bit 7 


PA6 


14 


Yellow 


Strobe 


CAl 


15 


Green 


Bit 8 


PA7 


16 


Blue 


ACK 


CB2 



These were wired to the PET as indicated, with the ground and 
+5V connected to a separate power supply. 

The Writehander was wired with these options: 

1 Strobe goes active low + to -~] 

2 Acknowledge is a tive low + to - L_ 

3 Parity fixed at low (0) 

This means the following sequence is required: 



1 


POKE DDR TO ALL INPUT 


2 


CAl TO HI-LD TRANSITION 


3 


DISABLE SHIFT REGISTER CB2 MODE 


4 


ENABLE CAl LATCHING 


5 


TURN CB2 ON 


6 


WAIT FOR INERRUPT FLAG 


7 


READ DATA WITH HANDSHAKE, MASK OFF, PARITY BIT 


8 


TURN CB2 OFF 


9 


DISPLAY VALUE ON SCREEN 


10 


GO TO 5 
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This was turned into a basic program: 



5 
10 
20 
30 
40 
50 
60 
70 
80 
90 
100 



PRINT "nrr"; 

POKE 59459, 

POKE 59468, PEEK (59468) AND 254 
POKE 59467, PEEK (59467) AND 227 
POKE 59467, PEEK (59467) OR 1 
POKE 59468, PEEK (59468) OR 224 
IF (PEEK (59469) AND 2) - Q THEN 60 
X - PEEK (59457) 

POKE 59468, (PEEK (59468) AND 31), OR 192 
PRINT X AND 127; 
<50 TO 50 



This program shows the ASCII codes input by the Writehander. 
To show the characters, change line 90 to: 



Three items are worth notingll 

1. The Writehander would work well with the Blinken Lightes 
and refuse to Work with the PET I Eventually it was learned 
that : 



2. OR is evaluated before AND by the PET I Una 80 was first 
written as: 

poke: 59468, PEEK (59468) AND 31 OR 192 

And it was discovered that the data went into the PET when CB2 
was toggled manually I A PEEK of 59468 revealed bit was set, 
i.e. positive CAl transition. When parenthesis were inserted 
it worked! ! 

So - interfacing has its hazards 1 1 

3. The CHR$ function in PET does not correspond to the ASCII 
code. To get the corresponding graphic character for an ASCII 
LOWER case, 



90 



PRINT CHR§ (X AND 127); 




90 
100 



X = X AND 127: IF X > 95 THEN X - X -»- 96 
PRINT CHR$ (X);: GO TO 50 
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00 - BRK 

01 - ORA - (Indirect, X) 

02 - Future Expansion 

03 - Future Expansion 

04 - Future Expansion 

05 - ORA - Zero Page 

06 - ASL - Zero Page 

07 - Future Expansion 

08 - PHP 

09 - ORA - Immediate 
0A - ASL - Accumulator 
0B - Future Expansion 
0C - Future Expansion 
0D - ORA - Absolute 

0E - ASL - Absolute 
0F - Future Expansion 

10 - BPL 

11 - ORA - (Indirect), Y 

12 - Future Expansion 

13 - Future Expansion 

14 - Future Expansion 

15 - ORA - Zero Page.X 

16 - ASL - Zero Page.X 

17 - Future Expansion 

18 - CLC 

19 - ORA - Absolute, Y 
lA - Future Expansion 
IB - Future Expansion 
IC - Future Expansion 
ID - ORA - Absolute, X 
IE - ASL - Absolute, X 
IF - Future Expansion 



20 - JSR 

21 - AND - (Indirect, X) 

22 - Future Expansion 

23 - Future Expansion 

24 - BIT - Zero Page 

25 - AND - Zero Page 

26 - ROL - Zero Page 

27 - Future Expansion 

28 - PLP 

29 - AND - Immediate 
2A - ROL - Accumulator 
2B - Future Expansion 
2C - BIT - Absolute 

2D - AND - Absolute 
2E - ROL - Absolute 
2F - Future Expansion 

30 - BMi 

31 - AND - (Indirect) ,Y 

32 - Future Expansion 

33 - Future Expansion 

34 - Future Expansion 

35 - AND - Zero Page,X 

36 - ROL - Zero Page.X 

37 - Future Expansion 

38 - SEC 

39 - AND - Absolute. Y 
3A - Future Expansion 
3B - Future Expansion 
3C - Future Expansion 
3D - AND - Absolute. X 
3E - ROL - Absolute, X 
3F - Future Expansion 
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49 - RTI 

41 - EOR - ( Indirect. X) 

42 - Future Expansion 

43 - Future Expansion 

44 - Future Expansion 

45 - EOR - Zero Page 

46 - LSR > Zero Page 

47 - Future Expansion 

48 - PHA 

49 - EOR - Imnediate 
4A - LSR - Accumulator 
4B - Future Expansion 
4C - JMP - Absolute 

4D - EOR - Absolute 
4E - LSR - Absolute 
4F - Future Expansion 
Sd - BVC 

51 - EOR - (Indirect), Y 

52 - Future Expansion 

53 - Future Expansion 

54 - Future Expansion 

55 - EOR - Zero Page.X 

56 - LSR - Zero Page.X 

57 - Future Expansion 

58 - CLI 

59 - EOR • Absolute, Y 
5 A - Future Expansion 
5B - Future Expansion 
5C - Future Expansion 
5D - EOR - Absolute, X 
5E - LSR - Absolute, X 
5F - Future Expansion 



60 




RTS 


61 




ADC - (Indirect, X) 


62 




Future Expansion 


63 




Future Expansion 


64 




Future Expansion 


65 




ADC - Zero Page 


66 




ROR - Zero Page 


67 




Future Expansion 


68 




PLA 


69 




ADC - Imediate 


6A 




ROR - Accuoulator 


6B 




Future Expansion 


6C 




JMP - Indirect 


6D 




ADC - Absolute 


6E 




ROR - Absolute 


6F 




Future Expansion 


'9 




BVS 


71 




ADC - (Indirect), Y 


72 




Future Expansion 


73 




Future Expansion 


74 




Future Expansion 


75 




ADC - Zero Page.X 


76 




ROR - Zero Page.X 


77 




Future Expansion 


78 




SEI 


79 




ADC - Absolute. Y 


7A 




Future Expansion 


7B 




Future Expansion 


7C 




Future Expansion 


7D 




ADC - Absolute, X 


7E 




ROR - Absolute, X 


7F 




Future Expansion 
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80 - Future Expansion 

81 - STA - (Indirect, X) 

82 - Future Expansion 

83 - Future Expansion 

84 - STY - Zero Page 

85 - STA - Zero Page 

86 - STX - Zero Page 

87 - Future Expansion 

88 - DEY 

89 - Future Expansion 
8A - TXA 

8B - Future Expansion 
8C - STY - Absolute 
8D - STA - Absolute 
BE - STX - Absolute 
8F - Future Expansion 

90 - BCC 

91 - STA - (Indirect), Y 

92 - Future Expansion 

93 - Future Expansion 

94 - STY - Zero Page.X 

95 - STA - Zero Page,X 

96 - STX - Zero Page.Y 

97 - Future Expansion 

98 - TYA 

99 - STA - Absolute, Y 
9A - TXS 

9B - Future Expansion 
9C - Future Expansion 
9D - STA - Absolute, X 
9E - Future Expansion 
9F - Future Expansion 



A0 - LDY - Immediate 
Al - LDA - (Indirect, X) 
A2 - LDX - Immediate 
A3 - Future Expansion 
A4 - LDY - Zero Page 
AS - LDA - Zero Page 
A6 - LDX - Zero Page 
A7 - Future Expansion 
A8 - TAY 

A9 - LDA - Immediate 
AA - TAX 

AB - Future Expansion 
AC - LDY - Absolute 
AD - LDA - Absolute 
A£ - LDX - Absolute 
AF - Future Expansion 
B0 - BCS 

Bl - LDA - (Indirect) ,Y 
B2 - Future Expansion 
B3 - Future Expansion 
B4 - LDY - Zero Page,X 
B5 - LDA - Zero Page,X 
B6 - LDX - Zero Page,Y 
B7 - Future Expansion 
B8 - CLV 

B9 - LDA - Absolute, Y 
BA - TSX 

BB - Future Expansion 
BC - LDY - Absolute, X 
BD - LDA - Absolute, X 
BE - LDX - Absolute, Y 
BF - Future Expansion 
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C0 - CPY - Immediate 
CI - CMP - (Indirect, X) 
C2 - Future Expansion 
C3 - Future Expansion 
C4 - CPY - Zero Page 
C5 - CMP - Zero Page 
C6 - DEC - Zero Page 
C7 - Future Expansion 
C8 - INY 

C9 - CMP - Immediate 
CA - DEX 

CB - Future Expansion 
CC - CPY - Absolute 
CD - CMP - Absolute 
CE - DEC - Absolute 
CF - Future Expansion 
00 - BNE 

Dl - CMP - (Indirect) ,Y 
D2 - Future Expansion 
D3 - Future Expansion 
D4 - Future Expansion 
D5 - CMP - Zero Page.X 
D6 - DEC - Zero Page.X 
D7 - Future Expansion 
08 - CLD 

D9 - CMP - Absolute, Y 
DA - Future Expansion 
DB - Future Expansion 
DC - Future Expansion 
DD - CMP - Absolute, X 
DE - DEC - Absolute, X 
OF - Future Expansion 



E0 - CPX - Immi'dl.itf 
El - SBC - (IndirfCt,X) 
E2 - Future Expansion 
E3 - Future Expansion 
E4 - CPX - Zero Page 
E5 - SBC - Zero Page 
E6 - INC - Zero Page 
E7 - Future Expansion 
E8 - INX 

E9 - SBC - Immediate 
EA - NOP 

EB - Future Expansion 
EC - CPX - Absolute 
ED - SBC - Absolute 
EE - INC - Absolute 
EF - Future Expansion 
F(J - BEQ 

Fl - SBC - ( Indirect) ,Y 
F2 - Future Expansion 
F3 - Future Expansion 
F4 - Future Expansion 
F5 - SBC - Zero Page,X 
F6 - INC - Zero Pa8e,X 
F7 - Future Expansion 
F8 - SED 

F9 - SBC - Absolute, Y 
FA - Future Expansion 
FB - Future Expansion 
FC - Future Expansion 
FD - SBC - Absolute, X 
FE - INC - Absolute, X 
FF - Future Expansion 
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PET MEMORY 



LOCATIONS 



September 1978 



0000-0002 


0-2 


0003 


3 


0005 




0008-0009 


8-9 


OOOA-OO59 


10-89 


oo5a 


90 


0053 


91 


0050 


9? 


005D 


93 


005E 


9h 


OO^F 


95 


0060 


96 


0061 


97 


0062 


98 


CO63 


99 


006U 


100 


0065 


101 


0066 


102 


0067 


103 


0068-0070 


lOU-112 


0071-0072 


113-im 


0073-007U 


115-116 


0075-0078 


117-120 


007A-007B 


122-123 


UU7C-007D 


12U-125 


CJU7E-007r 


I26-I27 


0080-0081 


128-129 


0082-0083 


130-131 


008U-OCc5 


132-133 


0086- C 06 7 


13U-135 


0088-CC39 


136-137 


OO8A-OG8B 


138-139 


006C-OC8B 


II^O-IUI 


008E-008F 


Ih2-lh3 


0090-0091 


liiU-lii5 


0092-0093 


Ili6-lli7 


009U-0095 


Iii8-lli9 


0096-0097 


150-151 


0098-0099 


152-153 


00 9A 


15U 


009c 


156 


0O9D-00A1 


157-161 


00A2 


162 


OOA3-OOA5 


163-165 


00A6-00AA 


166-170 


OOAB-OOAF 


171-175 


00B0-00B5 


176-161 


0056 


182 


00B7 


183 


00D8-00BD 


18U-189 


OOBE 


190 


OODF 


191 



USR Jump instniction 

Current l/O Device for Drorrot-supDress 

Cursor position for Innut Print 

Inteper address from Basic (for SYS. GOTO, etc.) 

Basic input buffer; # of array subscripts 

Search character (usually ' : ' or end-of-line) 

Scan-between-ouotes flag 

Basic input buffer pointer ; number of subscriots 

First-character of array- name; default DIM flag 

Type: FF=string; 00»numeric 

Type: 80=integer; O0«floating point 

'DATA' scan flag; LIST quote flag; memory flag 

Subscrint flag; FNx flag 

0=input, 6U»get, 152-read (flag) 

flag for trigonometric signs /comparison evaluation flag 

input flag (supnress output if negative) 

variable pseudo-stack pointer 

fixed-point pseudo-stack pointer 

dummy value (O) 

variable x pseudo-stack 

pointer for number transfer 

number pointer 

product staging area for multiplication 

start of basic pointer 

end of basic/start of varibles pointer 

end of variables /startof arrays 

start of available space pointer 

bottom of strings (moving down) pointer 

ton of strings (moving down) pointer 

limit of Basic memory pointer 

ciirrent program line number 

previous line number 

previous line address (for CONT) 

line number of DATA line 

memory address of DATA line 

input vector (DATA et«.) 

current variable name 

current variable address 

variable pointer for current FQR/NEXT 

Y save register ; new operator save 

comparison symbol accumulator: <1 S2 >U 

number work area for SQR, etc. 

pseudo-stack yardstick (3 or 7) 

jump vector for functions 

numeric store area 

numeric store area 

prinary accumulator E,M,M,M,M,S 

Taylor series constant count ar 

accumialator high-order proDOgation word 

secondary accuimilator 

sign comparison, primary/secondary 

low- order rounding byte for primary acc 
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Sentemher 1978 



ooco-onci 


192-193 


OOC2-OOD9 


19li-217 


OODA-OODE 


218-222 


OQEO-OOSl 


22b-225 


00E2 


226 


00E3-00EU 


227-228 


OOE5-OOE6 


229-230 


OOE7-OOE8 


231-232 


00E9 


233 


OOEA 


23I1 


OOEB 


235 


OOEC 


236 


OOED 


237 


OOEE 


238 


OOEF 


239 


OOFO 


2l|0 


OOEL 


2UI 


00F2 


2\x2 


00F3-00FU 


2\x3-2\x\i 


00F5 


2h5 


00F6 


2h6 


OOF7-OOF8 


2U7-2U8 


00F9-00FA 


2U9-250 


OOFB 


251 


OOFC 


2^2 


OCFD 


253 


OOFE 


2514 


OIQO-'^IOA 


256-266 


0105- 01 


267-511 


0200-OP02 


^12-5lii 


020"^ 




OPOli 




n?n^-o?oA 




n?n7 




0208 




0209 


521 


020A 


522 


020B 


523 


020C 


52U 


020D 


525 


G20E 


526 


020F-0218 


527-536 


0219-02LA 


537-538 


021B-021C 


539-5ho 


021D 


5m 


02IE 


5U2 


0220-0221 


514U-5U5 


0222 


5U6 


0223 


5U7 


022U 


5h8 


0225 


5h9 


0226 


550 


0227 


551 


0228 


552 


02?9-n?hl 


553-577 



Cassette buffer lenrth/Tavlor constant pointer 

Subrtn: Get Basic Char; C9.GA-nointer 

RND storape and work area 

Pointer to screen cursor line 

Poisition of cursor on line 

Utility pointer; tape buff er, scrolling 

End of current program/taoe end address 

Tape timing constants 

Tape buffer character 

Direct/programmed cursor; CO='direct 

Tape read/verify flag 

Taoe write flag 

Number of k characters in file name 
Logical file number 
File comnand (frcm Or^,') 
Device number 

Maximum line length (hO or 80) 

Tape buffr address (start of buffer) 

Line where cursor lives 

Last key pushed (ASCII); buffer checksum 

Tape start address/tape pointer 

File name pointer 

^luraber of "insert" keys pushed 

Serial bit shift word 

^ blocks remaining to write 

Serial word buffer 

Hinarr to ASCII conversion area 

5t5ck area 

TI and TIB cloek - .iiffies 

'.v^.lch key deuressed: 255 •= no key 

Shift key: 1 if depressed 

Clock (unused?) 

Cassette 1 status switch 

Cassette 2 status switch 

Keys witch PIA : STOP & RV3 flags, etc. 

Load^O, Verify=l 
Status 

# characters in keyboard buffer 

Reverse flag 

Keyboard buffer 

Hardware interrupt vector 

Prpak interr^. :)t vector 

Snd-of-line-f or -input pointer 
Cursor log (row, colunn) 
PBD inage for taae l/c 
Key image 

0=f lashing cursor; else no cursor shows 
Cursor timing countdown 
Character under cursor 

Cursor blink flag 
Tsne v.'rite 

Line ad-iress high F- screen line wran table 
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September 1978 



02li2-0?UB 

02hC-0255 

0256-025F 

0260 

0261 

0262 

0263 

026U 

0265 

0266 

0268 

026a 

026c 

02dF 

0270 

0271 

0272 

0273 

02 7U 

0275 

0276 

0277 
0278 
0279 

027A-0339 

033A-03F9 

0U00-7FFF 

8000-6F?? 

9000-E??? 

C000-E077 

E078-E7F8 

E810 

E811 

E812 

E813 

E820 

E821 

E822 

E823 

E8U0 

E8U1 

E8U2-E81i3 

E8Uli-E8U5 

E8h6-E8ii7 

E8U8-E8149 

E8U 

E8UB 

E8UC 

E8l;D-E8UE 
E8UF 

FOOO-FFFF 



578- 
588- 
598- 
608 
609 
610 
611 
612 
613 
61U 
616 
618 
620 
623 
62U 
625 
626 
627 
628 
629 
630 

631 
632 
633 
63U- 
826- 
102h. 
32768- 
3686b. 
U9152. 
57l;6U. 
59h08 
59h09 
59U10 
59hll 
591;2U 
59li25 
59U26 
59U27 
59U56 
59U57 
59U58- 
59U60- 
59h62- 
59U6a- 
59U66 
59U67 
59I468 
59li69- 
59U71 



•587 Lopical numbers of ooen files 

■597 Device numbers of onen files 

■607 Commgnd/Secondary address of open files 

Inout from screen/innut from keyboard 

X-save flag 

How many ooen files 

Inout device, normally 

Output CMD device, normally 3 

Tape parity 

Pointer in filename transfer 



Serial bit count 

Tape write countdown 

Tape buffer ^1 count 

Tape buffer ,^2 count 

Leader counter 

Flag for tape error 

if Is t ^byte cntr not written 

2nd i-byte cntr/ tape error count 

Cassette read flag 
Checksum working word 
Tape #1 buffer 
Tape ^2 buffer 

Available RAM including expansion 
Video RAM 

Available ROM expansion area 
Microsoft Basic 

Kevboard/Screen/lnterrupt monitor 

?JA1 T Keyboard A register; (Direction with CRA2-1) 
Kevboar'^ A control 

Keyboard B register; (Direction with CR32=»l) 
Keyboard E control 

IEHH; A register; (Direction with CRA2-1) 



•825 

•1017 

•32767 

.36863 
•h9l5l 
■57h63 
■5938U 



PIAl 
PLM 
?IA1 
PIA2 
PIA2 
PIA2 
PIA2 



■59U59 
•59ii6l 
69163 
•591465 



•59U70 
•65535 



IEEE A control 

IEEE B register; (Direction with CRB2-1) 
IEEE B control 
VIA l/O register B 
VIA I/O register A with handshake 
VIA Data Direction regs, A and B 
VIA Timer 1 
VIA Timer 1 latch 
VIA Timer 2 
VIA shift register 
ACS: T1.T1.T2.5R.SR.SR.PB.PA 
PGR: B2.B2.B2.B1.A2.A2.A2.A1 
IFR, ER: T1.T2.CB1.BC2.SR.CA1.CA2 
I/O Register A without handshake 
Reset/tape/diagnostic monitor 
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CDC1-GDE7 checks for special characters (+,-,",.) at start of expression 

CDE8-CDF6 performs NCTT function 

CDF7-GE0U checks for various functions 

CE05 evaluates expression within parentheses () 

CE03 checks for right parenthesis ) 

CEOE checks for left oarenthesis ( 

CEll-CElB checks for comma 

CE1C-CE20 prints SYNTAX EfLRCR and exits 

CE21-CE27 sets up function for future evaluation 

CE28-CE39 set up a variable name search 

CE3E-CE96 checks for snecial variables 71, TiS, and ST 

CE97-CED5 identifies and sets uo function references 

CEI]6-CFC^ perform the CR and AND functions 

CFO6-CE6D performs comparisons 

CP5E-CF7A sets un DIM execution 

CF7B-D00E searches for a Basic variable 

DOOF-DO78 creates a new Basic variable 

D079-D087 logs Basic variable location 

DO88-DO98 is array ■ oointer subroutine 

D099-TX}9C is 3?768 in floating binary 

DO9D-DO38 is floating ooint-to-f ixed conversion for signed values 

DOB9-D263 locates and/or creates arrays 

D26U-D277 oerforms FBE function 

D278-D23U converts fixed no int -to- floating 

D285-D28A performs PCS function 

D28B-D29U checks direct/indirect command, gives 'ILLEGAL DIRECT' 
D295-D3U8 executes DSF statements and evaluation FJic 
D3U9-D3cA performs 3TH3 function 
D36B-B3-- scans and sets ud string elements 
D3D2-Ii33 b'^lds string vectors 

LhOh-W^j does 'garbage collection' - discards unwanted strings 

C5Cii-D5-'7 oerforms CHR3 function 

E5D8-D653 performs lEFT^, RIGm$, IC[D$ functions 

D65U-D662 performs LEN, gets string length 

D663-D672 performs ASC function 

D673-D68[i gets a single-bjte value from Basic 

E685-n5C3 evaluates VAL function 

D6cU-E)6CF gets two arguments (l6-bit and 8-bit) from Basic 

L6D0-D6E5 checks argument is in range 0-6^535 
D6E6-D701 performs ^EEK and POKE 
D702-D71D executes WAIT statement 
D7IE-D890 performs addition and subtraction 
D89I-D8EE contains float ing-noint constants 
'J8BF-D8FC nerforms LOG function 
DfiFD-D9$D nerforms multinlication 

D95^.-D988 loads secondary accumulator from memory (?$B8 to 5BD) 
D989-D9E3 test and adiust primairy/secondary accumulators 
D9BU-D9E0 routines to multinly or divide by 10 
D9E1-DA73 oerforms division 

r!A7h-DA98 loads primar'/- accumulator from memory ($bO-$B^) 
CA99-DACD transfers nri'Tai^/ accumulator to memory 
DACS-DADn transfers secondary accumulator to primary 
LADE-DASC transfers primary accumulator to secondary 
i;AED-EAFG rounds the urimary accumulator 
D.^FB-DB29 extracts primary sign; performs SGN function 
DB2A-DB2C performs AES 

DB2D-DB6G compares orimary accumulator to memory 
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DB6D-DB9D Convert Floating noint to fijced, unsigned 

DB9E-DBCU perform INT function 

DBC^-DGUF convert ASCII string to floating point 

DC5O-DC8I4 get new ASCII digit 

CC9h-DCAE Drint Basic line number 

convert floating ooint to ASCH string (=,t Oino ud) 
DDS3-DE23 conversion constants - deciTial or clock 
DE?li-DE2D evaluation SQR function 
0£?E-DS66 evaluation of power function 
DE67-DE7I negate (monadic -) 
EEA0-EEF2 oerf orm EXP function 
iJl^F3-DF3C perform function series evaluation 
DFii5-D?9D perform RND calculation 
DF9E evaluate COS function 

DFA$-DEED evaluate SIN function 
DFSS-EOI9 evaluate TAN function 
EOI48-EO77 evaluate ATN function 

E0B5-E0CC Basic scan program, transferred to 0OC2-00D9 
EOD2-E173 completion of power-on- reset j memory test, etc. 
E19B-EIBB partial test for TI and TI$ 
ElBC-EIEO irout/read/get director 

E1E1-E27C initialize l/O registers, clear screen, reset subroutine 

E27D-E3C3 receive input from keyboard/screen 

E3GU-E3E9 set up new screen line 

E3EA-E52F output character to screen 

E530-E5M check for and nerform screen scrolling 

E5DB-E66A start new screen line 

E66B-E67D interrupt entrj 

E67E-E633 interrupt return 

E685-E7JE hardivare interr^jDt routine: cursor flash, tape motor, keyboard 
E73F-E7A3 convert kevboard matrix to ASCII 
E7AC-E7B9 write-on-screen subroutine 
E7DB-E7EB print canned monitor message 
F0B6-F1C3 IEEE-h88 channel ODen, test, close 

F1CG-F22F get input charact-^r from kevfcaord, screen cassette. IEEE 

F230-F27C output character to screen, cassette. lE'-iE 

F27D-F2A3 restore normal l/O, clear IEEE channels 

F2Aii-F2AA abort (not close.') all files 

F2AB-F2B7 locate logical file table entry 

F2B8-F2C7 transfer file table entries to Device, Command 

F2C8-F329 perform file CLC6E 

F32A-F33E test stop key 

F33F-F3h5 test if direct/indirect command for sunpressing file advice 

F3i46-F3FE oerform file LOAD 

F3FF-FU21 print "SEARCHING " 

Fi422-Fi432 print "LOADIKG .. "or "^RIFYING" 

FU33-Fi|6l get parameters for LOAD and SAVE 

FU62-F]49h perform IEEE sequences for LOAD, SAVE, and O^EN 

FU95-FUEA search for soecific tane header 

FJljBB-FhD3 perform VERIFY 

FhDU-F529 get parameters for 0°EN and CLOSE 

F52A-F5AD perform OPEN 

F5AE-P5S2 search for any tsne header 

F5E3-F5EC clear tane buffer 

F5:^D-F6liC write tape header 

F6IiD-F666 get start & end addresses from tape header 
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F667-F67C Set buffer start address 

F67D-P59ij set tane buffer start and end Dointers 

F695-F59D oerform SYS cox.-riand 

Fb9E-F71E perform SA'';E 

F71C-F735 find unused secondary address 

F736-F78A undate clock 

F7eB-F7DB set inout device 

F7DC-F82C set outout device 

F8?D-F83A burro taoe buffer counter 

F83B-F85D wait for cassette PLAY svritch 

F85E-F870 test cassette switch line 

F871-F87E wait for cassette RSCCRD and PIAY switches 

F87F-F8B8 read tane initiation routine 

F6B9-F8D1 write tane initiation rKoutine 

F8D2-F91? comolete tane read or write 

F913-F91D wait for l/O corroletion 

F91Z-F92D test stoo kev and abort if necessary 

F92E-F952 subroutine to set taoe read tirang 

F95F-FBDB interruDt routine for taoe read 

FBDC-FBEii save memory pointer 

FBE5-FBEB set ST error'.flap 

FEEC-FBFF subroutine to count 8 serial bits per byte 
FCOO-FCIB subroutine to write a bit to tape 
FCIC-FCFA interrupt 1 for taoe write - entry at FC21 
FCFB-FD15 terminate l/o and restore normal vectors 
FD16-FD37 subroutine to set interrupt vector 
FD38-FDU7 power-on reset entry; test for diagnostic 
FDLi8-FD7B diagnostic routine 
FD7C-FD8F checksum routine 
FD90-FD9A pointer advance subroutine 
FD9B-FFB1 diagnostic routines 



JUT-fP TABLE: 

FFCO OPEN 

FFC3 CLOSE 

FFC6 set innut device 

FFC9 set output device 

FFCC restore normal l/O devices 

FFCF inout character (from screen) 

FFD2 outnnt character 

FFT6 LOAD 

FFD6 SAVZ 

FFDB VERIFY 

FFDS SYS 

FFEl test sto-D kev 

FFEli get character from keyboard buffer 

FEE 7 abort all l/O channels 

WEP. update clock 



FFED-FFFA turn off cassette motors 
FFFA-FFJB NMl vector (mangled) 
FFFC-FFFD reset vector 
FFFE-FFFF interrupt vector 
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Machine Language 89 
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Micro Magazine 85 

Newsletter Addresses 60 

ON - GOTO 59 

Programme Overlays 43 

ROM Comparison: Oil vs. 019 20 

Shifted Capitals 94 

Standard Symbols 54 

Time Delay Tips 25 

Timing Tables 6 

T.I.S. Workbooks 85 

UNLIST 57 

User Port Cookbook 123 

User Port Information 9,28 

Software 

Assembler, 6502 24 

Auto - Repeat 92 

Business Software 118 

Calc. Simulator 51 

Decvert 93 

Hexvert 93 

LIFE For Your PET 30,92 

LIFE, Snowless 42 

Non - Stop 91 

Plotting 26 

Prime Number Test 15 

Reflex Test 24 

Squares, Cubes, Roots 16 
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Squiggle Version 2.0 21 

Tax Ontario 1978 86 

Twenty Number Sort 15 

Upper to Lower Case Convert 121 

View 91 

World Capitols 19 

Hardware 

Available Hardware 9,120 

Cassette Fix 16 & 95 

D/A Converter 58 

Hampet: RTTY Interface 66 

Selectric Interface 117 

Video Monitor Interface 23 

X-Y Plotter 9,28 
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